use strict; use utf8; use Encode;

my @html=wget -O - http://www.vmworldeurope.com/videos; foreach my $line (@html) { if($line=~/iframe src="(.)" name/) { my @video=wget -O - $1; foreach my $l (@video) { if($l=~/file=(.)&image/) { wget $1; } }

}

}