a handy utility, sheriff. i've got a couple suggestions:
use warnings there's no reason not to, this code is clean under warnings.
specify the module version for RTF::Tokenizer, as in use RTF::Tokenizer 1.01 qw();. the functionality of new has changed to allow the syntax you've specified. i had to upgrade mine from 1.00 to get this to work correctly.