or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"my $rec = 'A A Milne - Winnie-The-Pooh and Silver-Bear vol5-12 - Xi P
+ress - Peking (1998)';
...
"
'A A Milne - Winnie-The-Pooh and Silver-Bear vol5-12 - Xi Press - Peki
+ng (1998)'
'A A Milne|Winnie-The-Pooh and Silver-Bear vol5-12|Xi Press|Peking (19
+98)'