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