http://www.perlmonks.org?node_id=501803


in reply to Re^3: Regular Expressions: Removing 'only' single spaces from a string
in thread Regular Expressions: Removing 'only' single spaces from a string

I found that the following works on both sample strings:
$string =~ s/(\S)\s(\S)/$1$2/g;
  • Comment on Re^4: Regular Expressions: Removing 'only' single spaces from a string
  • Download Code

Replies are listed 'Best First'.
Re^5: Regular Expressions: Removing 'only' single spaces from a string
by Roy Johnson (Monsignor) on Oct 20, 2005 at 23:32 UTC
    Won't work for a single space at the beginning or end of the string. To fix:
    $string =~ s/(\S|^)\s(\S|$)/$1$2/g;
    But the lookahead solution is preferable.

    Caution: Contents may have been coded under pressure.