awk & perl split out number in brackets

echo "a b c (9)" | awk '{print 0+substr($NF,2)}'

echo "a b c (21)" | perl -alne 'print 0+substr($F[-1],1)'

Thanks, Gedge!