Re: need help

[Ned Konz]

        $aa = "Mike <mike\@mike.com>, Mark <mark\@mark.com>";
        my @fields = $aa =~ m{ <([^>]+)> }gx;
        print "$fields[0]|$fields[1]\n";

-- 
Ned Konz
currently: Stanwood, WA
email:     [EMAIL PROTECTED]
homepage:  http://bike-nomad.com, Perl homepage:
http://bike-nomad.com/perl

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]