Select Code to Download

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 );