$ perl -Mstrict -Mwarnings -E '
my $line = q{25 ((18 25 4) (3 12 1))};
my @nums = split m{[\s()]+}, $line;
say qq{@nums};'
25 18 25 4 3 12 1
$