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