Select Code to Download

use strict ;
use warnings ;
...
my $str = "abcdef" ;
$str =~ /(?<foo>[ab])*(?<bar>c)(?<foo>d)(?<bar>[ef]*)/ ;
print Dumper(\%-) ;

$VAR1 = {
          'foo' => [
...
                     'ef'
                   ]
        };