my @fcping_lines = `fcping $port`;
for (@fcping_lines) {
    if (/\s+ and \s+ (.*?) \s+/x) {
        my $unsucces = $1;        
        if ($unsucces eq "0") {
            print "Network Issue\n";
        }
        else {
            print "Check HBA Status\n";
        }
    }
}

##</code><code>##