foreach my $field ( @fields )
{
    $field =~ s{,}{::comma::}g;
}