my ($b, $c, $d) = ($str =~ /(b)(c)(d)/);