Next Regular Expression Mastery 92

Randal's Rule

For example:

        Newsgroups: comp.lang.perl.moderated
        Subject: perl question
        Date: Tue, 04 Feb 2003 21:52:02 GMT
        I have a perl question, I have this as
        $string = ((!TM)*A)|(TM*(((!TASEL)*TAA)|((TASEL)*TAB))) ;
        I want this to be seperated as TM, A, TM, TASEL, TAA, TASEL,
        TAB. How do i do it ?
        Thanks in advance ?
        @parts = $string =~ m/[A-Z]+/g;

Next Copyright © 2002 M. J. Dominus