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

    # Ignore useless lines
    next if length($_) > 60;
    next unless /^(\w|\s*Total:)/;

    push @extract, $_;
}

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