C:\>perl test4.pl
5#!/usr/bin/perl -w
4
3seek(DATA,0,0);
2*a=*.;
1print map{$a-=1; $. . $_}<DATA>;
0__END__