use XML::Rules;

my $parser = XML::Rules->new(
 rules => [
  story => 'skip',
  image => sub {print $_[1]->{_content},"\n"},
 ]
);

$parser->parse( $the_xml);
[download]