in reply to g matching after a single regular match

If you want data extraction (as opposed to data validation) 

@list = /(\d+(?:\.\d+)*|A*|B*)/g;

[download]

Update: The above doesn't work. Fix: 

@list = /(\d+(?:\.\d+)*|A+|B+)/g;

[download]

Replies are listed 'Best First'.
Re^2: g matching after a single regular match
by Roy Johnson (Monsignor) on Feb 01, 2007 at 23:00 UTC
    You could also do the slightly simpler (and slightly more permissive): 
    /([\d.]+|A+|B+)/g;

    [download]
    Caution: Contents may have been coded under pressure.
[reply]
[d/l]

In Section Seekers of Perl Wisdom