Select Code to Download

for my $line (@lines) {
  $line =~ /your regex/;
...
    $urecs{$2} = "$1,$2,$3\n";
  }
}