#!/your/perl/here -p
}{$_=$.