use LWP::Simple;
my $tornode_blocklist_url = "https://check.torproject.org/torbulkexitlist";
my $data = get $tornode_blocklist_url; # URL abholen
if (not defined $data) {
  die "Liste kann nicht geholt werden!";
}
$data =~ s/^/Deny from /gm; # Nun hat jede Zeile in $data am Anfang "Deny from "