Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select or download this

my %hash = map {
   my ($key) = $_ =~ /PAT(TERN)1/;
   my ($value) = $_ =~ /(PAT)TERN2/;
   $key => $value;
} @array;