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