Changing the definition of words

And adding another example.

After @lizmat latest addition, the definition was no longer in sync
with the source. This refs #2340

Author: JJ

doc/Type/Str.pod6

@@ -537,8 +537,8 @@ Examples:
 
 =head2 routine words
 
-    multi sub    words(Str:D $input, $limit = Inf --> Seq)
-    multi method words(Str:D $input: $limit = Inf --> Seq)
+    multi method words(Str:D: $limit)
+    multi method words(Str:D:)
 
 Returns a list of non-whitespace bits, i.e. the same as a call to
 C<$input.comb( / \S+ /, $limit )> would.
@@ -550,6 +550,14 @@ Examples:
     say "foo:bar".words.perl;      # OUTPUT: «("foo:bar",).Seq␤»
     say "foo:bar\tbaz".words.perl; # OUTPUT: «("foo:bar", "baz").Seq␤»
 
+As can be seen by the definition, it can also be used as a subroutine, turning
+the first argument into the invocant. C<$limit> is optional, but if it is
+provided (and not equal to C<Inf>), it will return only the first C<$limit>
+words.
+
+    say words("I will be very brief here",2); # OUTPUT: «(I will)␤»
+
+
 =head2 routine flip
 
     multi sub    flip(Str:D  --> Str:D)