#!perl -p
y/$./ */