Well I'm told that newer versions of perl optimise alternations internally and this is redundant now: my $re = join "|", @list; my (@matches) = $txt =~ /

Well I'm told that newer versions of perl optimise alternations internally and this is redundant now: my $re = join "|", @list; my (@matches) = $txt =~ /$re/g; Quicker and faster...