my $rx =  qr/(@{[ join '|', map quotemeta, keys %m_info ]})/;