All the Perl that's Practical to Extract and Report
Sean has enabled RTF users to both say(RTFM) and RTFM(RTFM--).perl -le "$_=q{RTF-L}; s/\W//g; $_++; print"
say(RTFM)
RTFM(RTFM--)