my $str = "(5) 3";
my ($x, $y) = $str =~ /\d+/g;
print "$x\t$y\n";