while($text=<>) {
    chomp $text;
    // undef/reset preferred data structure before loop
    while($text=~/\([^)]+\)/g) {
        $token=$1;
        // append token to chosen data structure and such
    }
}