while ($line = <FILE>) {
	chomp($line);
	$content = get $line;
	open(EXT, ">bla.txt");
	if(not defined $content) {
		print ERR "$line\n";
	} else {
	while ($content =~ m/"(regex)"/g) {
		$url = $1;
#		print $url;
		my $wholeurl = "$line$url";
		print EXT "$wholeurl\n";
	}
	exit;
	}
}