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

##</code><code>##

$VAR1 = {
          'foo' => [
                     'b',
                     'd'
                   ],
          'bar' => [
                     'c',
                     'ef'
                   ]
        };