Select Code to Download

This header section contains a bunch of left-justified
lines that are all shorter than 60 characters. Only the
...
         Total:  323

Next header section, etc.

my @extract;
while (<$INF>) {
...

# Now you can process @extract for the interesting stuff
print @extract;