my ($abc, $a, $c) = "abc" =~ /((a)b(c))/