#!/usr/bin/perl -w
use strict;

while(<>) {
        if ($_ =~ m/^\w+(.*)\)$/g) {
                print $1,"\n";
        }
}

bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)
21jbdl bal 0912 91u2u3 kj 33 900
bdl bal 0912 91u2u3 kj 33 9)
. bdl bal 0912 91u2u3 kj 33 9)

bdl bal 0912 91u2u3 kj 33 9)
2jbdl bal 0912 91u2u3 kj
?bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)kajkljk kj
78bdl bal 0912 91u2u3 kj 33 9)9
bdl bal 0912 91u2u3 kj 33 9)

 bal 0912 91u2u3 kj 33 9
 bal 0912 91u2u3 kj 33 9
 bal 0912 91u2u3 kj 33 9
 bal 0912 91u2u3 kj 33 9
 bal 0912 91u2u3 kj 33 9

perl -ne 's/^\w+(.*)\)$/$1/g' test.txt

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

perl -p -i -e 's/^\w+(.*)\)$/$1/' test.txt

bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)

perl -ne "print \$1,\$/ if m/\\w+\\s+(.*)\\)\$/" test.txt