Help for this page

Select Code to Download


  1. or download this
    s/((?:^|\|)(?:[^"|]*"[^"|]*")*[^"|]*)"([^"|]*)(?=$|\|)/$1$2/g;
  2. or download this
    my $T = qr/[^"|]*/;
s/((?:^|\|)(?:$T"$T")*$T)"($T)(?=$|\|)/$1$2/go;
  3. or download this
    join '|', map { s/"([^"]*)$/$1/ if y/"// & 1; $_ } split /\|/;