c:\@Work\Perl\monks>perl -wMstrict -le
"my $rec = 'A A Milne - Winnie-The-Pooh and Silver-Bear vol5-12 - Xi Press - Peking (1998)';
 print qq{'$rec'};
 ;;
 my $rx_old_sep = qr{ \s+ - \s+ }xms;
 my $new_sep = '|';
 ;;
 $rec =~ s{ $rx_old_sep }{$new_sep}xmsg;
 print qq{'$rec'};
"
'A A Milne - Winnie-The-Pooh and Silver-Bear vol5-12 - Xi Press - Peking (1998)'
'A A Milne|Winnie-The-Pooh and Silver-Bear vol5-12|Xi Press|Peking (1998)'