my $str = "(5) 3 4 (8)"; 
 my ($x, $y) = ($str =~ /\d+/g)[0..1]; 
 print "$x\t$y\n";