use Text::ParseWords;
$filename = "index.dumped.html";
    open( FILE, "< $filename" ) or die "Can't open $filename : $!";

   foreach $line (<FILE>) {
push @lwords, $line;


}

@words = &quotewords(@lwords);
  foreach (@words) {
      print "<$_>\n";

  }


close FILE;