my @x = ( $string =~ /\d+/ga );