Select Code to Download

 
$patterns = join "|",@patterns;

@matches = ($lexicon =~ /\0\0($patterns)\0([^\0]+)/g );