for ($in) {
  s/this/that/;
  s/here/there/;
  etc.
}