my @nums = $x =~ /(\S+)/g; #### my @nums = split(' ', $x); #### # @nums = ('1', '11', '2', '22', '222', '3', '33'); my @nums = $x =~ /(\d+)/g; #### # @nums = (['1', '11'], ['2', '22', '222'], ['3', '33']); my @nums = map { [ /(\d+)/g ] } $x =~ /(\S+)/g; #### # @nums = ('2', '22', '222'); my @nums = ($x =~ /\s(\S+)/)[0] =~ /(\d+)/g; #### # @nums = ('2', '22', '222'); my @nums = (split(' ', $x, 3))[1] =~ /(\d+)/g;