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