open(FILE,"errpt -g|") or die ("A horrible, horrible death.\n");

sub buildErrorHash
{
        while($line !~ /^@@/)
        {
                $line=<FILE>;
                ($thing)=split(" ",$line);
                $line =~ /\w+(.*)/; $foo=$1; $foo =~ /\s+(.*)/; $thing
+Value=$1;
                $errorHash{$thing}=$thingValue;
        }

        delete $errorHash{"@@"};
}
[download]