Re: Help with regEX

[Codon]

Get rid of that substitution:

my ($digits) = $var =~ /([0-9]+)/;

And then you can use the "digit" metacharacter \d:

my ($digits) = $var =~ /(\d+)/;

For your learning pleasure: the reason your original regex failed is you were getting all characters that were not a lower-case letter in a greedy fasion. That sucked up the entire string with your first atom. There were no digits left to match. Might I suggest Mastering Regular Expressions for much more information.