Pugs -> Rakudo

Author: virtualsue

categories/cookbook/01strings/01-01substrings.pl

@@ -10,16 +10,16 @@
 
 =end pod
 
-my ($string, $offset, $count) = ('Pugs is da bomb', 2, 5);
+my ($string, $offset, $count) = ('Rakudo is da bomb', 2, 5);
 say $string.substr($offset, $count);
 say $string.substr($offset);
 
 # want to replace everything but the first two letters with the string
-# "gilism ain't for wimps"
+# "diators are nice in winter"
 # this code works in Perl 5, but not in Perl 6 since strings are immutable
-# substr($string, $offset) = "gilism ain't for wimps";
+# substr($string, $offset) = "diators are nice in winter";
 # say $string;
-$string = $string.substr(0, $offset) ~ "gilism ain't for wimps";
+$string = $string.substr(0, $offset) ~ "diators are nice in winter";
 say $string;
 
 # vim: expandtab shiftwidth=4 ft=perl6