Select Code to Download

#!/usr/bin/perl

...
1
2
3

1
...
1
2
3

#!/usr/bin/perl

seek(DATA,0,0);
print map{$. . $_}<DATA>;
__END__

5#!/usr/bin/perl
5
5seek(DATA,0,0);
5print map{$. . $_}<DATA>;
5__END__

#!/usr/bin/perl -w

...
*a=*.;
print map{$a-=1;$..$_}<DATA>;
__END__

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

#!/usr/bin/perl -w

...
*a=*.;
print map{$a-=chomp;s/.//; "$.\t$_\n" }<DATA>;
__END__

12      !/usr/bin/perl -w
11
...
2       a=*.;
1       rint map{$a-=chomp;s/.//; "$.\t$_\n" }<DATA>;
0       _END__

#!/usr/bin/perl -w

...
}                  # close map
<DATA>;            # map data array (whole file)
__END__