if (my ($elem1, $elem2, @x) = $string =~ /.../ ) {