foreach my $q (128..131){
    # open the files
	# the input file
    open( FILE, "<D:/MON/3800-$q.html" );
    # the output file
    open( MYFILE, '>0071.html' );
    
	# do the replacement and output the results to MYFILE
    while (my $line = <FILE>){
		$line =~ s/onClick/HREF/isg;
		print MYFILE $line;
		print $line;
    }
    print MYFILE '<br/>';
	print '<br/><br/><br/>';
    # close the files
	close(MYFILE);
    close(FILE);
    unlink("0071.html");
}