my $tag = q{<test-result value="FAIL"/>};

if ($str =~ m/\Q$tag\E/) {
    print "«$str» contains «$tag»\n";
}