16:30 >perl -wE "my $s = 'Intel(R) Xeon(R) CPU          X5660  2.80GHz '; $s =~ s/(\s)+/$1/g; say qq[>$s<];"
>Intel(R) Xeon(R) CPU X5660 2.80GHz <

16:33 >

##</code><code>##

use strict;
use warnings;

my $s = 'Intel(R) Xeon(R) CPU          X5660  2.80GHz ';
   $s =~ s{ (\s)+  }{$1}gx;
   $s =~ s{  \s+ $ }{}x;

print "\n>$s<\n";

##</code><code>##

17:26 >perl 1843_SoPW.pl

>Intel(R) Xeon(R) CPU X5660 2.80GHz<

17:26 >