#a simpler regex is
$str =~ s/^.{$n}//s #or, if you want a null string left in $str if you try to delete more chars than exist in $str,
$str =~ s/^.{1,$n}//s