use strict; use XML::Twig; # wonder why strict doesn't complain about XML being used. my $twig = XML::Twig->new( twig_roots => { 'Job' => \&process_job }, keep_encoding => 1, ) or die "Can't create XML::Twig object!\n"; my $data = do {local $/; }; $twig->parse( $data); $twig->purge; sub process_job { my ($twig, $JobObj) = @_; if ($JobObj->first_child("JobBody")->text() =~ /Typically reports to top management\. ?nagement\./) { print STDERR "I HATE XML\n"; exit; } print $JobObj->first_child("JobBody")->text(); } __DATA__ DHRDallas-31129343 http://my.monster.com/applyStart.asp?jobid=31129343 http://recruiter.monster.com/submitjob.asp?jobid=31129343 36339124 xaimcodx1 Scott Davis scott.davis@aimco.com Director of Human Resources Chris DeLisa AIMCO chris.xxxxa@xxxxx.com PerYear 0 0 1 0 Dallas TX US Human Resources/Recruiting xaimcodx 309263 PLEASE APPLY ONLINE AT A URL 1300080