perl -e 'print "@{[ map{ ($/.=$_)=~s/././g } $^=~/./g ]}\n"'