$inverse_regex = 'a.b';
for (0..9,a..z){
($result = $inverse_regex) =~ s/\./$_/;
print $result;
}

##</code><code>##

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;