';
foreach(@relatedurls)
{
my ($ru,$rt)=split(/\|/,$_);
$ru=~s#mycatalogues.com/cgi2/mc.catgo.cgi\?c#price-wizard.com/cgi-perl/pw.displaystore.cgi?store#;
$ru=~s#mycatalogues.com/cgi2/mc.go.cgi\?c#price-wizard.com/cgi-perl/pw.direct.pl?store#;
if ( (index($relatedurls,'http://')!=-1) || (index($relatedurls,'https://')!=-1) ){
$relatedurls.=' - ';
};
$relatedurls.=qq~
$rt~;
}
$relatedurls.='