Select Code to Download

my ($key, $value) = split /\s*-\s+/, $line;

while (<>) {
   if (/^(\S+)\s*-\s+(.+)$/) {
...
      print "Badly formatted line: $_\n";
   }
}