my $regexp = join '|', @patterns;
$str =~ /$regexp/