my (undef, $x, $y) = split / \+?/, $s;