$text  =~ s/^(.{50000}).*$/$1/;