Select Code to Download

#!/usr/bin/env perl
use strict;
...
original: This     is        a string with   variable     numbers   of
+    spaces.
cleaned:  This is a string with variable numbers of spaces.
# of substitutions: 6

my $cleaned = $token->as_is;
$cleaned =~ s/\s{2,}/ /g;  # I took out the /s modifier. I thought it 
+was only for transliteration (e.g., $cleaned =~ tr/ //s).

my $cleaned = $token->as_is =~ s/\s{2,}/ /gr;