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