my ($x, $y, $rest) = ($string =~ /^(.{n})(.{n})(.*)/);