Select Code to Download

SWITCH: foreach ($1) {
  m/^fred$/  && do {$replace_text='wilma'; last SWITCH};
  m/^wilma$/ && do {$replace_text='fred';  last SWITCH};
  do { die "Unknown check: $_\n" }
}