%s = ( '?' => '.', '*' => '.*' );
s/(\W)/$s{$1} || "\\$1"/ge;