language: Perl (perl 5.16.2)
date: 394 days 18 hours ago
link:
visibility: private 
1
2
3
4

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