Select Code to Download

if (my ($match) = $_ =~ /...(...).../) {
    $db_results->{$match} = delete $db_results->{$_}
}