my @f = ($data =~ m!((\w+),+)!g);