Select Code to Download

perl -pi.bak -e '$count++;s/^/$count. /' file_name

foreach my $line (@file) {
  (undef) = <FILE>; # stores number of lines into $.
...
  print FILE, "$count. ";
  if ($count == $.) {last; }
}

foreach my $line (@file) {
    $count++;
    print FILE, "$count. $line";
}

foreach (@file) {
    $count++;
    s/^/$count. /;
    print FILE;
}

(undef) = <FILE>; # stores number of lines into $.

if ($count == $.) {last; }