> -----Original Message----- > From: $Bill Luebkert > Sent: Monday, July 25, 2005 9:30 PM > > s/"([^"]+) ([^"]+)"/$1\000$2/g;
holy cow. can you explain that substitution? my brain just about
popped.
>
> my @a = split / +/;
>
> foreach (@a) {
> s/\000/ /g; # restore embedded spaces
> print "$_\n";
> }
>
> __END__
>
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
