Try this...

for my $line (<$fh>) {
    last if ($line =~ /TOTAL COMMAND SUMMARY/);  
    chomp($line);
    my ($uid, $login, $cpupr, $cpunpr, @data) = (split("\t",$line));
}
[download]