my $line = "& & &"; $line =~ s/(\W)\s+(\W)/$1$2/g; print $line; [download]
In reply to string substitution by Gosh