Fix typos

Author: Util

bin/rpn3

@@ -18,6 +18,6 @@ multi infix:<rpn> (@stack, $op where /^ '+' | '-' | '*' | '/' $/) {
   [ @stack, $res ]
 }
 multi infix:<rpn> ($any, $unknown) {
-  die "Unkown expression near $any $unknown";
+  die "Unknown expression near $any $unknown";
 }
 say [rpn] [], (~@*ARGS).words;

cookbook/01strings/01-00introduction.pl

@@ -24,7 +24,7 @@ =head1 Description
 
 =head1 Declaring and assigning Strings
 
-A string can be created explictly, by declaring a variable using the
+A string can be created explicitly, by declaring a variable using the
 Str keyword, and assigning a string value to it.
 
     my Str $string = 'This Str is holding a String';

euler/prob012-polettix.pl

@@ -99,7 +99,7 @@ ($x is copy)
       %factors_for{$x} = $result;
    }
 
-   # Return as a hash of (factor, occurences) pairs
+   # Return as a hash of (factor, occurrences) pairs
    my %factors;
    %factors{$_}++ for $result.list;
    return %factors;

euler/prob029-gerdr.pl

@@ -10,7 +10,7 @@
 sub count-smartly(Int \A, Int \B --> Int) {
 	my (%powers, %count);
 
-	# find bases which are powers of a preceeding root base
+	# find bases which are powers of a preceding root base
 	# store decomposition into base and exponent relative to root
 	for 2..Int(sqrt A) -> \a {
 		next if a ~~ %powers;

template_pod

@@ -3,7 +3,7 @@
 =head1 TITLE
 DESCRIPTION
 
-=head1 What's interesing here?
+=head1 What's interesting here?
 
 =item feature1
 =item feature2