haha=`echo $haha | perl -pe "s/tyre/tire/g"`