Re: Regular expressions - match

[eff_i_g]

For CSV data see Text::CSV.

Here's a simple example using regex:

use warnings;
use strict;

my $string1 = "one=1,two=2,three=3,four=4,five=5";
my $string2 = "one=1,three=3,five=5";

for ($string1, $string2) {
    print "$_\n";
    print "$1=$2\n" while /(\w+)=(\d+)/g;
}

You can modify the RE as you see fit and/or put the data in a hash.

Update/FYI: Your RE does not work because the .*'s are greedy.