Help for this page
my $value_regex = join( '|', values %msgDefn ); # actually, use anony +monk's version below... while ( <FILEHANDLE> ) { print if ( /$value_regex/ ); }
my $value_regex = join( '|', map { '\Q'.$_.'\E' } values %msgDefn );