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