Re^2: Removing digits until you see | in a string

[MaxKlokan]

The same, but one line shorter :-)

($index = $str) =~ s/\|.*//;
$data_hash{$index} = $str;