<$FH> for 1 .. 2; #### while (! eof $FH) { my $start = tell $FH; my $line = <$FH>; next if $line =~ /^skip/; seek $FH, $start, 0; last; }