Select Code to Download

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

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

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

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