try this:
my $x =3D '"ROYALE JEWELLER" [at] omr12.test.com test';
$x =3D~ s/"([^"]*)\s([^"]*)"/"$1$2"/g;
print $x,"\n";
Dnia poniedzia=B3ek 31 maj 2010 o 21:00:04 activeperl-
request [at] listserv.activestate.com napisa=B3(a):
> Send ActivePerl mailing list submissions to
> activeperl [at] listserv.ActiveState.com
> =
> To subscribe or unsubscribe via the World Wide Web, visit
> http://listserv.ActiveState.com/mailman/listinfo/activeperl
> or, via email, send a message with subject or body 'help' to
> activeperl-request [at] listserv.ActiveState.com
> =
> You can reach the person managing the list at
> activeperl-owner [at] listserv.ActiveState.com
> =
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of ActivePerl digest..."
> =
> =
> Today's Topics:
> =
> 1. Replace white space between "" (Stephane Legault)
> =
> =
> ------------------------------------------------------------ ----------
> =
> Message: 1
> Date: Mon, 31 May 2010 10:53:58 -0700 (PDT)
> From: Stephane Legault <stephanelegault [at] yahoo.com>
> Subject: Replace white space between ""
> To: activeperl [at] listserv.activestate.com
> Message-ID: <845109.19803.qm [at] web30908.mail.mud.yahoo.com>
> Content-Type: text/plain; charset=3D"utf-8"
> =
> Hi,
> =
> I need to replace white space between delemiter "". After looking for do
> this I need to tell I did not find the solution! $test=3D'test "ROYALE
> JEWELLER" [at] omr12.test.com test';
> =
> And I would like have this in $test3 (look the space between royale and
> jeweller is gone): test "ROYALEJEWELLER" [at] omr12.networksolutionsemail.com
> test
> =
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
> http://listserv.ActiveState.com/pipermail/activeperl/attachm ents/20100531/
> 60106a70/attachment-0001.html
> =
> ------------------------------
> =
> _______________________________________________
> ActivePerl mailing list
> ActivePerl [at] listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> =
> End of ActivePerl Digest, Vol 46, Issue 5
> *****************************************
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
