Select Code to Download

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

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