#!/usr/bin/perl

use strict;
use warnings;

my $input = q{O1/APZ "GWHMSC2_R132_EP" 3233 150407 1448 BACKUP INFORMATION FAULT FAULT CODE 34};

# initialize this to a numeric value so you don't get warnings
my $fault_code = 0;

if ( $input =~ m/FAULT CODE (\d+)$/ ) {
    $fault_code = $1;
}
my $flag = ( $fault_code == 34 );

print "FAULT CODE is 34\n" if $flag;

exit;

__END__