$intro =~ s/((\w+\W*){200})(.*)/$1/si;