Select Code to Download

$db_results{$_} = $1 if $db_results{$_} =~ /(BLAH\d{2}-\w)/ for keys $
+db_results;

foreach (keys $db_results) {
    my $match = $1 if $_ =~ /(BLAH\d{2}-\w)/;
    $db_results->{$1} = delete $db_results->{$_};                     
+        
}