$TotalSumm =~ s/[.]| //g;
Punkte gehören gequotet, Das steht auch im Artikel, der dir verlinkt wurde.
Ich weiss nicht, was du damit ausdrücken willst:
#!C:/Programme/Perl/bin/perl.exe -w
#
use strict;
my $string = "... ... abc";
$string =~ s/[.]| //g;
print $string, "\n";
sleep(10);
exit;
mfg Beat