RosettaCodeData/Task/Tokenize-a-string-with-escaping/Perl/tokenize-a-string-with-escaping-3.pl

print "'$_'\n" for tokenize("one^|uno||three^^^^|four^^^|^cuatro|", '|', '^');