my $lim = 32700;
$s=~s/^ {1,$lim}//mg while ($s=~/^ /);