Tokenizer for RTF in Perl