use Data::Dumper;

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

print Dumper @list;