#!/usr/bin/perl -pi.old

s/\bfreind\b/friend/g;
s/\bpeice\b/piece/g;
s/\bteh\b/the/g;
