damn, Perl not good at processing the html files