fork download
 my $str = "(5) 3 4 (8)"; 
 my ($x, $y) = ($str =~ /\d+/g)[0..1]; 
 print "$x\t$y\n";
Success #stdin #stdout 0s 4596KB
stdin
Standard input is empty
stdout
5	3