sub R1{ $_=sub{join"\0",split//,pop};"\0".&$_|&$_ }