Perl: tell seek function used for reading a file

Question

I am reading a file and printing the SubPart given in file.

File Content:

Part1    Some info here
SubPart1 Some info here
Part1