Select Code to Download

while (<FH>) {
    chomp;
...
            and print "matched: $1\n";
    }
}

while (<FH>) {
    chomp;
    my @all_matches = m/ ... /xg;
    my @first_few   = @all_matches[0 .. 1];
}