The /.+,/ ... is only returning the number of matches ...
Not that it makes any difference (the logic is still wrong), but it's returning the success of the match:
c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my @strings = ('x,x', 'yy,yy,yy', 'z,zzz,z,zz', 'foo');
;;
my @ra = map { [ $_, /[xyz]+,/ ] } @strings;
dd \@ra;
;;
@ra = map { [ $_, /[xyz]+,/g ] } @strings;
dd \@ra;
;;
@ra = map { [ $_, scalar(/[xyz]+,/) ] } @strings;
dd \@ra;
;;
dd \@strings;
"
[["x,x", 1], ["yy,yy,yy", 1], ["z,zzz,z,zz", 1], ["foo"]]
[
["x,x", "x,"],
["yy,yy,yy", "yy,", "yy,"],
["z,zzz,z,zz", "z,", "zzz,", "z,"],
["foo"],
]
[["x,x", 1], ["yy,yy,yy", 1], ["z,zzz,z,zz", 1], ["foo", ""]]
["x,x", "yy,yy,yy", "z,zzz,z,zz", "foo"]
See
Regexp Quote-Like Operators (in
perlop) ->
/PATTERN/msixpodualgc -> "Matching in list context".
Update: Edited code example for space.