$_ = '12';
s/\d/n/g;s/n+/m/;