Hi,

Got a bit of a weird one.

I'm trying to write some code to "clean up" my HTML pages (so they are smaller and more SEO friendly)

I've got this line:

            $html =~ s/\s{2,100}/ /sig;

...and:

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

..but that seems to replace the newlines (so the WHOLE page is all one one line)

These are the other lines (but I've commented them out, just to check which line was causing the problem)

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

I'm at a real loss as to whats going on

Can anyone suggest anything? Surely should be a simple case of /\s+/ / ?

I've also done a little test script, and have exactly the same issue:

#!/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;
[download]

..and that outputs:

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

 some stuff sdfsdfsdf dfgd fg sdfsdfsf
[download]

TIA

Andy