use 5.014;
use HTML::Element;
use HTML::TreeBuilder;
use HTML::Entities;
my $doc;
use FileHandle;
my $InputDatei = *DATA;
{ local $/ = undef; $doc = <$InputDatei>; }
close $InputDatei;
my $tree = HTML::TreeBuilder->new_from_content($doc);
my $Foto = $tree->look_down( 'class', 'photo' );
say $Foto->as_HTML();
say "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~";
$Foto = $Foto->all_attr();
use Data::Dumper;
say Dumper($Foto);
__DATA__
Spinatb?chen auf Lachscreme - BRIGITTE.de
