my $n = 3;

my $str = "1234567890\n";
$str =~ s/^.{$n}//s;
# was: $str =~ s/^.{$n}(.*)$/$1/s;
print $str;