my $var = "xyz";
if ($var =~ /[xyz]/) {
    print "all in m8\n"
}