c:\@Work\Perl\monks>perl -wMstrict -le
"use Test::More 'no_plan';
 use Test::NoWarnings;
 ;;
 note 'perl version: ', $];
 ;;
 use constant S => '  Intel(R) Xeon(R) CPU          X5660  2.80GHz  ';
 use constant T => 'Intel(R) Xeon(R) CPU X5660 2.80GHz';
 ;;
 for my $rxSpaces (
   qr{ (?<= \s) \s+ | \A \s+       | \s+ \z       }xms,
   qr{ \A \s+       | (?<= \s) \s+ | \s+ \z       }xms,
   qr{ \A \s+       | \s+ \z       | (?<= \s) \s+ }xms,
   ) {
   (my $t = S) =~ s{$rxSpaces}{}g;
   ok $t eq T, qq{$rxSpaces -> \n >$t<};
   }
 ;;
 note qq{still with spaces? >${ \S }<};
 done_testing;
"
# perl version: 5.008009
ok 1 - (?msx-i: (?<= \s) \s+ | \A \s+       | \s+ \z       ) ->
#  >Intel(R) Xeon(R) CPU X5660 2.80GHz<
ok 2 - (?msx-i: \A \s+       | (?<= \s) \s+ | \s+ \z       ) ->
#  >Intel(R) Xeon(R) CPU X5660 2.80GHz<
ok 3 - (?msx-i: \A \s+       | \s+ \z       | (?<= \s) \s+ ) ->
#  >Intel(R) Xeon(R) CPU X5660 2.80GHz<
# still with spaces? >  Intel(R) Xeon(R) CPU          X5660  2.80GHz  <
1..3
ok 4 - no warnings
1..4