#!perl -p
y;$.; *