See "Perl is worse than Python because people wanted it worse." also by Larry Wall.

It's still cool:

    perl -nle '/\b\w{4}\b/ && print' dialogue.txt