You're completly right. Thank you for the hints.

perl -le '$text = <STDIN>; $T=time; for (1..$ARGV[0]) { my $TestText =
+ $text; $TestText =~ s/\s+,\s+|\s+,|,\s+/,/g; } print time - $T; $T=t
+ime; $TestText=$text; for (1..$ARGV[0]) { my $TestText = $text; $Test
+Text =~ s/\s*,\s*/,/g; } print time - $T;' 1000000 </tmp/text.file
[download]

This should correct all bugs.