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