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