programming-examples/perl/Statement/Exit a loop.pl

    $Pattern = "perl";
    $File = "myfile";
    open (FILE,$File) || die "Can't open $File, $!\n";
    while(<FILE>) {
        if (/$Pattern/o) {
            print "$File: $_";
            last;
        }
    }
    close(FILE);