while(defined($line = <IN>)) {
      chomp($line);
      @chunks = split(/\s+/,$line);
      $ctr = 0;
      while(defined($chunk = $chunks[$ctr])) {
          if($chunk =~ /HREF/) {
              ($null,$url) = split(/\"/,$chunk);
              print "$url\n";
              @full = split(/\//,$url);
              $dir = $full[5];
              $file = $full[6];
              system("wget $url");
              unless(-e "$dir") { mkdir "$dir",0755; }

              rename "$file","$dir/$file";
          }
          $ctr++;
      }
  }