Untitled

$filename = "index.dumped.html";

open( FILE, "< $filename" ) or die "Can't open $filename : $!";

foreach $l (<FILE>) {
push @ww, $l;
}

@weamos = split (/ /, @ww);


foreach $V (@weamos) {
print "$V\n";
}