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

##</code><code>##

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