Shell Programming and Scripting

for i in *.tmp
do
    if grep 'find[[:blank:]].*[[:blank:]]with[[:blank:]]' "$i" >/dev/null
    then
      # file backup
      cp "$i" "$i".bak
   
      sed -e '/find[[:blank:]].*[[:blank:]]with[[:blank:]]/,/list/ {' \
          -e 's/find\([[:blank:]].*\)[[:blank:]]with[[:blank:]][[:blank:]]*/where\1:/' \
          -e 's/^[[:blank:]]*;[[:blank:]]*$//' \
          -e '}' "$i".bak > "$i"

    fi
done

perl -pe 'if (s/find(\s.*)\swith\s+/where$1:/) { $insert=1; next }
          if ($insert>=1) { if (/^\s*(;|run)\s*$/) { $buf=$buf . $_; $_=""; $insert=2; next}
          if ($insert==2) { if (/list/) {print "\n" } else {print $buf} $insert=0 }
          }'