#!/usr/bin/perl -p

s/([^c])ei/$1ie/g;
s/\bthier\b/their/g;
