#!/usr/bin/perl
#

$debug = 1;


@html_files = glob("team_stats/*.html");
foreach $html_file (@html_files) {

  if ($debug > 0) {
    printf "next file is ..%s.. \n", $html_file;
  }

  $outfile = $html_file;
  $outfile =~ s/.html/.txt/;
  
  $cmd = "lynx -dump $html_file > $outfile ";
  if ($debug > 0) {
    printf "cmd is ..%s.. \n", $cmd;
  }

  $ret = `$cmd`;

}


exit 0;
