#!/usr/bin/perl

use RTF::Tokenizer 1.01;
use strict;

my $tokenizer = RTF::Tokenizer->new( file => $ARGV[0] );

while (1) {

	my ($token, $type, $argument) = $tokenizer->get_token();

	last if $token eq 'eof';

	print "['$token', '$type', '$argument'],\n";
}