my $str = "abcdefg";

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