これならかなりクラシックな環境でも可
foo=`expr "$bar" : '^\(.\)'`