$ perl -e '$_="foobar_";s/[[:^alpha:]]+$//;print'
foobar