my %rx_wild_for = ( '%' => '.*', '_' => '.' );
$profane = s/[%_]/$rx_wild_for{$1}/g;