Select Code to Download

my $mech = WWW::Mechanize->new();
$mech->get($add);
my $r = $mech->content;

$r =~ m#regex(.*)#
...
$image = Image::Magick->new;
$x = $image->Read($imgurl);
$x = $image->Write("$photofile");