#!/usr/bin/perl


open P,"find . | grep html | ";

while(<P>) {
  chomp;
  open I,"<".$_;
  open T,">temp.txt";
  print $_,"\n";  

  while($f = <I>) {
    chomp $f;
   if ($f =~ m#temp\.css# ) {
    $f =~ s#css\/temp\.css#\"http:\/\/www.maine.gov\/portal\/css\/temp\.css\"#;
    print $f,"----->\n";

   } else {
    #print $f,"++++\n";

   }
    print T $f,"\n";
    
  }
  close I;
  close T;
  #$cmd = "mv temp.txt $_";
 
}