$string = s/^(.{$n})(.*)$/$2/s;
$chars = $1;