my $pattern = "foo|bar";
say "Match" if $str =~ $pattern;