#!/usr/local/bin/perl

use strict;
use warnings;
use LWP::UserAgent;


print "\nWEBWORD gestartet!\n\n";
print "\nBitte Adresse angeben: (http://beispiel.de) ";

chomp(my $input_address = <STDIN>);

print "\nName der Wordlist: ";
chomp(my $name = <STDIN>); # auch hier das entfernen des "\n" nicht vergessen!
$name .= ".txt";

my $agent = new LWP::UserAgent;
my $request = HTTP::Request->new('GET',$input_address);
$result = $agent->request($request);

my $words=$result->content();
$words =~s/[\r\n]+/ /gs; # Zeilenumbrüche entfernen
$words =~s/<.+?>/ /g; # sehr anfällig. Löscht unter Umständen zu viel / zu wenig
$words =~s/{.+?}/ /g; # wofür ist das? CSS??
$words =~tr/\W\S//d; # Sonderzeichen entfernen

my @word_list=split(/\s+/,$words); # Wörter aufteilen und in Array schreiben.

open(OUT,">",$name) or die "Konnte ($name) nicht oeffnen ($!)\n";
print OUT join("\n",@word_list);
close(OUT);