#!/usr/bin/perl
opendir(DIR, "./tool_original") or die "$!";
my @files = grep {/html$/} readdir DIR;
close DIR;
foreach my $file (@files)
{
print "$file....";
open (FH, "./tool_original/$file") or die "$!";
open (OUT, ">$file") or die "$!";
#print OUT "\n\t\n\n";
while ()
{
s/