A quick thing here ... if you omit the third parameter from substr, the length parameter, it will return everything up to the end of the line already for you. eg.

print substr($_, $pos);
[download]

See perlfunc:substr

 

Ooohhh, Rob no beer function well without!