C:\>perl -lne "print $1 if m/^\w+(.*)\)$/" test.txt