sub de_postgresify_string {
    my $string = shift;
    return undef unless defined $string and length $string;

    $string =~ s/^\{// and chop $string;
    my @array = map { s/^\s+//; s/\s+$//; $_ } split /,/, $string;
    foreach my $chunk ( @array ) {
	if ( $chunk =~ /^\{/ ) {
	    $chunk = [ de_postgresify_string( $chunk ) ];
	    next;
	}
	$chunk =~ s/^\"// and chop $chunk;
	
    }

    return @array;
}