indiansummersky's scratchpad

Public Scratchpad

Is there a better way to:

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

Thanks.