Если вы хотите просто применить номера строк к коду, вы можете развернуть простой скрипт, например:
#!/usr/bin/perl
use strict;
use warnings;
my $file = $ARGV[0];
unless ( -f $file ) {
print "File name has to be provided.\n";
exit;
}
open my $fh, '+<', $file or die $!;
my @lines = <$fh>;
seek $fh, 0, 0;
my $line_number = 0;
for (@lines) {
print $fh $line_number++, ": ", $_;
}
Просто передайте файл для нумерации строк в качестве первого аргумента. Всегда сохраняйте резервную копию исходного файла.