>perl -E "say '1121'=~tr/12/12/sr"
121