#!perl -p
s/./$_/g