##

#!/usr/bin/perl

open(FILE, 'removed.xml') or die "Can't read file 'filename' [$!]\n";  
while () { $document .= $_ }

print "document is $document\n";
@lines = split("\|",$document);
for ($i=0;$i< @lines;$i++) {
	print "$_\n";
}