Select Code to Download

while (<$filehandle>) {
    tr/blah/blah/ if /^\d{16}/; # do the translation
    print;                      # output result
}

my @data = <$filehandle>;
print $data[0];     # print first line
...
  print $data[$_];
}
print $data[-1];    # print last line