foreach $testfailure ($test->findnodes('./failure')) {
                      $failure_type = $testfailure->getAttribute('type');
                      $failure_temp = $testfailure->getAttribute('message');
                      }
foreach $testpassed ($test->findnodes('./skip')) {
                      $failure_type = $testfailure->getAttribute('type');
                      $failure_temp = $testfailure->getAttribute('message');
                      }

##</code><code>##

foreach $testpassed ($test->findnodes('./skip')) {
                      $failure_type = $testpassed->getAttribute('type');
#                                     ^^^^^^^^^^^
                      $failure_temp = $testpassed->getAttribute('message');
#                                     ^^^^^^^^^^^
                      }

##</code><code>##

if    ($error_type   ne '')
{
    ...
}
elsif ($failure_type ne '')
{
    ($failure_message, $junk) = split(/^/, $failure_temp, 2);
    chomp $failure_message;
    $failure_message =~ s/,/|/g;
    print OUTFILE "FAILED, $failure_type, $failure_message\n";
}
elsif ($failure_type ne '')
{
    ...
    $failure_message =~ /skip/;
    print OUTFILE "SKIPPED, $failure_type, $failure_message\n";
}
else
{
    print OUTFILE "PASSED\n";
}