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