Re^2: Removing digits until you see

In your update, you can block the split process to the first pipe char:

my ($index, $rest) = split /\|/, $str, 2;
$data_hash{$index} = $rest;
[download]

Flavio
perl -ple'$_=reverse' <<<ti.xittelop@oivalf

Don't fool yourself.

Comment on Re^2: Removing digits until you see \| in a string Download Code