This seems to work:

use Data::Dumper;

$line = "foo|bar";
$delimiter = '\|';
@list = split($delimiter, $line);

print Dumper @list;
[download]

Producing this output:

$VAR1 = 'foo';
$VAR2 = 'bar';
[download]