#!/afs/athena/contrib/perl/perl

while(<>){

    s/ of / ud /g/
    s/(o)([^ru])/aw\2/g;
    s/al/aw/g;
    s/or /a /g;
    s/er /a /g;


    print;
}