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 ?
        perluser99

• Once I figured out what the question was, the answer was just

        @parts = $string =~ m/[A-Z]+/g;

Next

Copyright © 2002 M. J. Dominus