Select Code to Download

my ($url) = $website =~ m/document\.write\((.+?)\)/;
$url =~ s/'\+'//g;
($url) = $url =~ m/src="(.+?)">/;