Select Code to Download

foreach $line ( @fileData ) {
    $linenumber++;
...
        print "$linenumber\n";
    }
}

for ( @fileData ) {
    $linenumber++;
...
        print "$linenumber\n";
    }
}

$l++,/^1$/&&print$l.$/for@f;