or download this
use strict;
use warnings;
my @CPU_SPLIT = split /\s+/, $CPU; # split the string on one or mo
+re spaces
# ~ s\ //g; # this line does not make any s
+ense to me, commented out.
my $result = join ' ', @CPU_SPLIT; # join can operate directly on
+an array, no need to list the indices