shell> cat script
$_= "$.: $_";
__END__
Testing
this.
shell> perl -p <script
1: Testing
2: this.