#!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; open(DESC, ">> desc"); my $mech = WWW::Mechanize->new(); $mech->stack_depth(0); $mech->get( 'http://epicute.icanhascheezburger.com/', ':content-file' => 'epicute.html' ); open(FILE, '< epicute.html'); my $document = ''; while () { $document .= $_; } foreach my $match ($document =~ m!]+><a href="([^"]+)"><img src='([^']+)' title="cute food photos - (.+?)".+?!g) { print DESC $1 . "\t" . $2 . "\t" . $3 ."\n"; } close(FILE); close(DESC);