while (<DB>) {
    @_ = split/[\t|,|\||\n]/;         # here things go accidently right ;-)
    $data{ $_[0] } = { @_[1..$#_] };
}

##</code><code>##

@_ = split /\t|,|\|\n/;

##</code><code>##

@_ = split /[\t\n,|]/;

##</code><code>##

@_ = split /[\s,|]+/;