# Perl Global Substitution
if (( $# < 2 )); then
  print "usage: $0 find replace [file ...]" >&2
  return 1
fi

local find="$1"
local replace="$2"
repeat 2 shift

perl -i.orig -pe 's/'"$find"'/'"$replace"'/g' "$@"