open (FILE, $filename) or die "Can't open $filename: $!";

while(<FILE>){
         
	s/(a href=.+?\.)html/$1asp/g;

	s/(.*?)\<body\>(.*?)\<\/body\>/$2/i;
          
	print OUTFILE $_;
}

close(FILE);