your example

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

is very convincing. - Sorry about that.