Select Code to Download

while (<F1>)
   {
      /(\w*) (\d*)/ ;
      $hash1{$1} = $2 ;
   }

while (<F1>) {
  if (/(\w*) (\d*)/) {
...
    warn "Invalid input line $.: $_\n";
  }
}