# But I'm not a golfer.
use strict;
use warnings;
sub test {
    my ($m, $line) = (undef, 0);
    while ( <DATA> ) {
        $line++;
        last if (($m) = m/(perl)/i);
    }
    if ($m) {
        printf "There were %d lines until I found '%s'\n", $line, $m;
    } else {
        printf "I never found 'perl' in %d lines\n", $line;
    }
}
test
test
__END__
1
2
3 
This is peRl ok
1
2
3
[download]