Man kann Perl selber zählen lassen, am schnellsten in Bytes:
* tell FILEHANDLE liefert die aktuelle Position
* seek FILEHANDLE,... positioniert auf eine gegebene Position, wahlweise "ab Anfang" oder "ab aktueller Position".

Die Zeilennummern zählt Perl in der Variablen $. (auch $INPUT_LINE_NUMBER oder HANDLE->input_line_number( EXPR )), siehe perldoc perlvar, aber positionieren kann man damit nicht.