Select Code to Download

open (my $fh, '<text.txt');
while (<$fh>) {
  print "$1 $2" . "\n" if /^([^ ]+) ([^ ]+)/;
}