{local($^I,@ARGV)=('.bak',@list);
  while( <> ){
    s%foo\-fuu\.net%fuuonline\.com%ig;
    print;
  }
}