$html =~ s/\r+/\n/sig;
			$html =~ s/\t+/ /sig;
			$html =~ s/[\n]{2,5}/\n/sig;

##</code><code>##

#!/usr/bin/perl

print "Content-Type: text/html \n\n";

my $html = q|
some stuff

sdfsdfsdf

 dfgd    fg
   sdfsdfsf
|;


#			$html =~ s/\r+/\n/sig;
#			$html =~ s/\t+/ /sig;


			$html =~ s/\s+/ /sig;

#			$html =~ s/[\n]{2,5}/\n/sig;

print $html;

##</code><code>##

perl ./cgi-bin/test.cgi
Content-Type: text/html

 some stuff sdfsdfsdf dfgd fg sdfsdfsf