use warnings;
use strict;
use Devel::Peek;
use Text::CSV;

my $str = "\N{U+20AC}|\N{U+20AC}";
Dump($str);  # ... UTF8 "\x{20ac}|\x{20ac}" ...

my ($s1,$s2) = split /\|/, $str;
Dump($s1);   # ... UTF8 "\x{20ac}" ...
Dump($s2);   # ... UTF8 "\x{20ac}" ...

my $csv = Text::CSV->new ({ binary => 1, sep_char => "|" });
$csv->parse($str);
my ($c1,$c2) = $csv->fields;
Dump($c1);   # ... UTF8 "\x{20ac}" ...
Dump($c2);   # ... UTF8 "\x{20ac}" ...