Select Code to Download

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

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