Help for this page
my @f = ($data =~ m!((\w+),+)!g);
The regular expression: ... ---------------------------------------------------------------------- ) end of grouping ----------------------------------------------------------------------