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

##</code><code>##

$cleanLine =~ s/$_//g for @regexps;