or an obfuscated solution:

 my  $filename = '/usr/local/bin/perl';

 open my $fh, '<', \$filename;
 local ($/,$\) = ('/')x2;
 /(?<=\w)\// && ($\.=$_) && print("\n".($.-1).'. ') while <$fh>;
[download]

Regards

mwa