Since this is a while loop, why not just put the check in the while condition?

while( my $line = <$fh> and $line !~ /TOTAL COMMAND SUMMARY/)
{
...
}
[download]