by print file, do you mean a file where a specific piece of data is generally in the same position? (fixed-length or flat file) If so, unpack is probably what you want to use. For instance, if each line above that contains date, name, number, is always such that each field begins at a specific character, unpack will work.

Lets just say that there are 10 spaces, 12 chars for the date, 32 for the name, and 10 for the number, heres how to get the info from 1 line of that format:

    my ($garbage, $date, $name, $number) = unpack "A10A12A32A10", $dat
+a_line;
[download]

Of course, it appears that not all lines are the same format in your file, so you'll need to use contextual clues to decide how to parse different lines.