#!/usr/bin/perl
use strict;
use warnings;

sub cskwparser {
    my $string = shift;

    my $esc   = 0;
    my $quote = 0;
    my @args;
    my $narg = 0;

  CHAR:
    foreach my $char ( split //, $string ) {
        if ($esc) {
            $esc = 0;
        }
        elsif ( $char eq '"' ) {
            $quote = !$quote;
        }
        elsif ( $char eq '\\' ) {
            $esc = 1;
        }
        elsif ( $char eq ',' and not $quote ) {
            $narg++;
            next CHAR;
        }
        $args[$narg] .= $char;
    }

    return @args;
}

# Test loop:
local $, = '|';
while (<>) {
    print cskwparser $_;
}