#!/usr/bin/perl

while ($line = <DATA>){
$line =~ s/<cc>([\s\S]+?)<\/cc>/defined ($1) ? "(&amp;amp;|&amp;)" : '-'/eg;
print $line;
}