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