#!/usr/bin/perl use strict; use warnings; use LWP::Simple; use HTML::TreeBuilder; use Data::Dumper; my $html = HTML::TreeBuilder->new(); my $html_data=LWP::Simple::get('http://epicute.icanhascheezburger.com/'); my @data; my @images; if($html_data) { $html->parse($html_data); # nach dem Textarea suchen: for my $tag ( $html->look_down( _tag => 'textarea' ) ) { next if(!$tag->attr('name') || $tag->attr('name') ne 'easyshare2' ); push(@data,$tag->content()->[0]); } } print Dumper(\@data);