$Ione = "Item|One";
$Ione =~ s/\|/\&verti\&kaal\&stre\&epke\;/g;

$ItemData = "$Ione|Ite\@m tw\%o|It\"em Th\$ree|Item \\our|Item \'five|Item \/six";
#
# Should be split up in :
# Item|One 
# Ite@m tw%o
# It"em Th$ree
# Item F\our
# Item 'five
# Item /six
#
print $ItemData."\n\n\n";

@words = split(/\|/, "$ItemData");  

for (@words) {
	s/\&verti\&kaal\&stre\&epke\;/\|/g;
	print $_."\n";
}