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

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