Select Code to Download

open(FILE,"test.txt");
my %inp = ();
...
 if(/^(.+?)\s+(\S+)/){ $inp{$1} = $2 }
}
close(FILE);