% perl -wle '$x=q(ab::cd); $x=~s/b::c//; print $x'
ad