DB<108> $_=12;s/\d+/(m=>n)[$&<11]/e;$_ => "m" DB<109> $_=12;s/\d+/($&>10)?'m':n/e;$_ => "m"