Substitution in a single statement

[sandy1028]

How to select the text between <cci> </cci> and in the selected text I have to check whether
"&amp;amp;" and"&amp;" exists or not.
If it exists i have to replace it with '-'.

How can I do this in a single statement.

$_ =~ /<cc>([\s\S]+?)<\/cc>/;
my $name_pre = $1;
$name_pre =~ s/&amp;amp;/-/g;
$name_pre =~ s/&amp;/-/g;