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