#!perl -p s/./$$_=$>$$_?$&:$$_/ge