Help for this page

Select Code to Download

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

Select or download this

my $rx =  qr/@{ [ join '|', map "(\Q$_->[0]\E)", @m_info ] }/;

for my $record (@data) {
...
        $record->[1] = join "_", $m_info[$m]->[3], $m_info[$m]->[1];
    }
}