perl -e "$_='foo'; print chop()"
o