'//*[@name="FilterName"]/*' => sub {print $_->text}