sub html_space {
    my $Rstring = shift;
    $$Rstring =~ s/ / /g; 
}