Select Code to Download

my $file = shift @ARGV;

if (open my $FH , $file) {
    my $start_pattern_found = 0;
    while (my $line = <$FH>) {

while (<>) {
    chomp;
    next if 1 .. /^internal name/;
    print "Found pattern at line $.\n" if /^need this/;
}