in reply to Removing the space in a string

s/\S\K +(?=\S)//g

[download]

In Section Seekers of Perl Wisdom