($string) =~ s%(?=[^a-zA-Z])(\s+)(?=[^a-zA-Z])%/%g;