You should be looking at the seek and tell functions.

"Perl makes the fun jobs fun
and the boring jobs bearable" - me