my $c = ("foo" =~ /($a)*$b/)[0];