my ( $index ) = split /\|/, $str;
$data_hash{$index} = $str;

##</code><code>##

my ( $index, @rest ) = split /\|/, $str;
$data_hash{$index} = join '|', @rest;