You are right! That should do it!!!

perl -e ' $str = "hi|there"; $d = quotemeta("|"); @a = split /$d/, $st
+r; print +($_,$/) for (@a);'
__END__
hi
there
[download]