#!/usr/bin/perl
open( FH, "filename" ) || die "No way man\n";

while ( <FH> ) {
    $data .= $_;
}

if ( $data =~ m/failed/i ) {
     $buildmsg = $data;
} else {
     $buildmsg = "BUILD SUCCESSFUL";
}

# continue