#!perl -p
s^ (..)^"y/	\Q$1\E/\Q$1$1\E/+s///"^geer