$word = 'educated'; $word =~ s/ed$//; The $ anchors the pattern to the end of the string.

-sauoq
"My two cents aren't worth a dime.";