C:\>perl -le "my $var = 'Test     '; print '::'.$var.'::'; $var =~ s/ {3}$//; print '::'.$var.'::'"