#!perl -p
$q=qr/\w+ ([^i 
]+)/;s|i$q $q $q|$1gt g?$2:$3|e?redo:0