$ perl utf8.pl $VAR1 = [ "\x{20ac}\x{20ac}", "\x{20ac}" ];