my $first_line = <DATA>;
chomp $first_line;
$first_line =~ s/,/chr(31)/eg;
print $first_line, chr(30);

##</code><code>##

print join chr(31), @fields, chr(30);

##</code><code>##

print join(chr(31), @fields), chr(30);

##</code><code>##

...
"Bonaire, Sint Eustatius and Saba|"Charissa, Lana, Liberty, Quail|44517|18|
...
"Virgin Islands, British|"Otto, Macon, Caldwell, Sasha|87676|49|
...

##</code><code>##

...
"Bonaire, Sint Eustatius and Saba","Charissa, Lana, Liberty, Quail",44517,18
...
"Virgin Islands, British","Otto, Macon, Caldwell, Sasha",87676,49
...