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";
}