perl -pe"s/-\w{2,}/ /g" infile > outfile

##</code><code>##

perl -i.bak -pe"s/-\w{2,}/ /g" file

##</code><code>##

while (<$fh_in>) {
   s/-\w{2,}/ /g;
   print $fh_out $_;
}