echo "email@somewhere.com (BOB)"|perl -lne '$_=~/[^\(]*\(([^)]*)\)/g;print $1'
echo "email@somewhere.com ("BOB")"|perl -lne '$_=~/[^\(]*\(([^)]*)\)/g;print $1'