my $a = rand() < .5 ? "f" : "g"
my $b = rand() < .5 ? "p" : "o";
my $c = ("foo" =~ /($a)*$b/)[0];