$_ = '12'; s/\d/n/g;s/n+/m/; #### $_ = '12'; s/\d\d+/m/||s/\d/n/; #### $_ = '12'; s/\d+/$&>10?'m':n/e;