Select Code to Download

use strict;
use warnings;

...
while ( my $line = <$fh> ) {
   print "$.\n" if $line =~ m/^1$/;
}