Brute force database renaming in legacy perl code

for table in CIRCUITS Discussions Dynamics ECON Evals \
Fluids Materials Mechanics STATICS THERMO ; \
  do for file in `sudo grep -r \"$table\" . | cut -d: -f 1` ; \
    do sudo sed -i".orig" "s/\"$table\"/\"gecourses_$table\"/" $file ; \
  done ; \
done