Misread the question.

Equivalent code using a character class:

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