#!/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);