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