if ($array[$i] =~ /\d+/){ }