Select Code to Download

while (<DATA>) # or wherever those lines come from
{
...
  $str =~ s/^\d+,\s*//;
  $hash{$num} = $str;
}

while (<DATA>) # or wherever those lines come from
{
  /^(\d+)\s+\d+,\s*(.*)/ and $hash{$1} = $2;
}