my $aref = &fieldParse($fullString, '!!', ';', ',');

sub fieldParse {
    my $source = shift;
    my $ret = [];
    my $delim = shift;
    defined($delim) or return $source;
    for (split $delim, $source) {
        push @$ret, &fieldParse($_, @_);
    }
    return $ret;
}