You might also want to put it into one regex, depending on context:

while (<DATA>) {
    my ($one,$two); 
    
    if ( /^\({\w+\s+\d+\})\s+(.*)/ ) {
        $one = $1;
        $two = $2;
    }
    print "ONE: $one\n";
    print "TWO: $two\n";
}
[download]

.02

cLive ;-)