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