#!perl -p
s/if (\w+).{6}(\w+) else (\w{4,})/$1gt g?$2:$3/e&&redo