try this: my $x = '"ROYALE JEWELLER"@omr12.test.com test'; $x =~ s/"([^"]*)\s([^"]*)"/"$1$2"/g;
print $x,"\n"; Dnia poniedziałek 31 maj 2010 o 21:00:04 activeperl- [email protected] napisał(a): > Send ActivePerl mailing list submissions to > [email protected] > > 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 > [email protected] > > You can reach the person managing the list at > [email protected] > > 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 <[email protected]> > Subject: Replace white space between "" > To: [email protected] > Message-ID: <[email protected]> > Content-Type: text/plain; charset="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='test "ROYALE > JEWELLER"@omr12.test.com test'; > > And I would like have this in $test3 (look the space between royale and > jeweller is gone): test "ROYALEJEWELLER"@omr12.networksolutionsemail.com > test > > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://listserv.ActiveState.com/pipermail/activeperl/attachments/20100531/ > 60106a70/attachment-0001.html > > ------------------------------ > > _______________________________________________ > ActivePerl mailing list > [email protected] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > End of ActivePerl Digest, Vol 46, Issue 5 > ***************************************** _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
