Re: Double interpolation of captured substrings

[Arunbear]

Use array slicing:

my %patterns = ( 123 => [0,1,2],
                 312 => [2,1,0] );

my @matches = $string =~ m/$some_pattern/;
return join '', @matches[@{$patterns{$patternkey}}];