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 "

# hier die htaccess öffnen (exemplarischer Schnippsel)
...
my $htaccess_data = join "",<FH>; # alten Inhalt der .htaccess holen
$htaccess_data =~ s/\n### BLOCK TOR(.+)### END BLOCK TOR\n/\n### BLOCK TOR\n$data\n### END BLOCK TOR\n/sm; # Abschnitt für TOR NODES ersetzen
print FH $htaccess_data; # neue Daten in der .htaccess speichern