if($words[$i] =~ /^(.+)acy$/) { $trans_line .= "$1atie "; #aristocracy }elsif($words[$i] =~ /^(.+)ency$/) { $trans_line .= "$1entie "; #urgency $trans_line .= "$1ens "; #tendency } elsif($words[$i] =~ /^(.+[aeiou])ssion$/) { $trans_line .= "$1ssie "; #commission } elsif($words[$i] =~ /^(.+)[a]tion$/) { $trans_line .= "$1ering $1atie "; #relation } elsif($words[$i] =~ /^(.+)tion$/) { $trans_line .= "$1tie "; #attention } elsif($words[$i] =~ /^(.+)ical$/) { $trans_line .= "$1isch "; #medical $trans_line .= "$1iek "; #identical } elsif($words[$i] =~ /^(.+[ru])al$/) { $trans_line .= "$1aal "; #plural, dual } elsif($words[$i] =~ /^(.+)ic$/) { $trans_line .= "$1isch "; #academic } elsif($words[$i] =~ /^(.+)idal$/) { $trans_line .= "$1idaal "; #suicidal } elsif($words[$i] =~ /^(.+)ive$/) { $trans_line .= "$1ief "; #representative } elsif($words[$i] =~ /^(.+)fic$/) { $trans_line .= "$1fiek "; #specific } elsif($words[$i] =~ /^(.+)ism$/) { $trans_line .= "$1isme "; #realism } elsif($words[$i] =~ /^(.+[gmr])y$/) { $trans_line .= "$1ie "; #analogy, economy, industry } elsif($words[$i] =~ /^(.+)ty$/) { $trans_line .= "$1teit "; #university } elsif($words[$i] =~ /^(.+)al$/) { $trans_line .= "$1aal "; };