Select Code to Download

#!/usr/bin/perl
...
if ($_ =~ /^\d/) {$y = $y + 1;}    # if the line does start with a num
+ber, ignore it. 
if ($_ != /^\d/) {print $y.$x;}    # if the line doesn't start with nu
+mber then print numbers.
}