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;
}
[download]

Could I interest you in a more modern data structure for your result, a hash for example?

#!/usr/bin/perl
use warnings;

my $string = "one=1,three=3,five=5";

%f=map {m/(\w+)=(.*)/} split /,/, $string;

use Data::Dumper;
print Dumper(\%f);

#prints
$VAR1 = {
          'three' => '3',
          'five' => '5',
          'one' => '1'
        };
[download]

There are a few problems with your regex, but your first is the extraneous use of .* as delimiters. The one in the second line of your regex is greedily matching everything else in your line and therefore none of the other sections are able to match.

I would advise that you use Text::CSV to progress the csv file and then use a regex to split apart each section. However, forgoing that, something like this would work as well.

use strict;

while (my $line = <DATA>) {
    chomp $line;
    
    my %vals = ($line =~ m{(\w+)=([^,]*)}g);
    
    print "one: $vals{one}, two: $vals{two}, three: $vals{three}, four
+: $vals{four}, five: $vals{five}\n";
}

1;

__DATA__
one=1,two=2,three=3,four=4,five=5
one=1,three=3,five=5
[download]

I tried to simplify the requirements and I ended up confusing you. These are some more details:

The data lines are like csv, but I cannot rely on the comma delimiters (the data line syntax is not always correct), therefore I chose to match the values based on the text before and after the match group.
Because of the above, "split" is not an option and I am not interested to use a hash for remembering the values (I have about 6 fields in total).

I have modified the initial regexp based on "eff_i_g"'s suggesion and it seems to work:

$string1 =~ m/
                (?:one=(.*?),)?
                .*?
                (?:two=(.*?),)?
                .*?
                (?:three=(.*?),)?
                .*?
                (?:four=(.*?),)?
                .*?
                (?:five=(.*?),)?
        /x;
[download]

my $line = 'one=1,two=2,three=3,four=4,five=5';

$line =~ /\w+\=(\d+)\,\w+\=(\d+)\,\w+\=(\d+)\,\w+\=(\d+)\,\w+\=(\d+)/i
+g;

print "\$1=$1, \$2=$2, \$3=$3, \$4=$4, \$5=$5\n";
[download]