Jeff 'Japhy' Pinyan wrote:
>
> I suggest a negative look-behind and a negative look-ahead:
>
> $string =~ s/(?<!\s)\s(?!\s)//g;
>
> But that might take too long, since it's probably not optimized the way it
> should be. So I'd probably go with:
>
> $string =~ s/(\s+)/length($1) == 1 and $1/eg;
^^^^
$string =~ s/(\s+)/length($1) != 1 and $1/eg;John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
