#Get HTML Document
#HTML::TokeParser->new( HTML )
#get first Token
#until ( TokenTag eq 'h3' and TokenText eq 'foo')
#    get next Token
#if EndOfHTML then exit
#until ( TokenTag eq 'em' )
#    get next Token
#declare EM container
#until ( get TokenTag eq 'hr' )
#    add TokenText to EM container
#    get next Token
#use EM container