Help for this page

Select Code to Download


  1. or download this
    my $first_line = <DATA>;
chomp $first_line;
$first_line =~ s/,/chr(31)/eg;
print $first_line, chr(30);
  2. or download this
    print join chr(31), @fields, chr(30);
  3. or download this
    print join(chr(31), @fields), chr(30);
  4. or download this
    ...
"Bonaire, Sint Eustatius and Saba|"Charissa, Lana, Liberty, Quail|4451
+7|18|
...
"Virgin Islands, British|"Otto, Macon, Caldwell, Sasha|87676|49|
...
  5. or download this
    ...
"Bonaire, Sint Eustatius and Saba","Charissa, Lana, Liberty, Quail",44
+517,18
...
"Virgin Islands, British","Otto, Macon, Caldwell, Sasha",87676,49
...