$data_hash{$1}= $str if $str =~ s/(\d+)\|//;

##</code><code>##

$data_hash{$1}= $2 if $str =~ /(\d+)\|(.*)$/;