perl -le 'sub r{$r=shift;print(chop$r),r($r)if$r}r("noisrucer")'