use Data::Dumper;

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

print Dumper @list;

##</code><code>##

$VAR1 = 'foo';
$VAR2 = 'bar';