more with operators

cli/operators.pl

@@ -102,3 +102,33 @@ if (($a == 5 && $b == 2) or $c == 3) {
 if ($a == 4 && $b < 3) {
     printcookies();
 }
+
+sub foo {
+    return ($c eq 0);
+}
+
+foo() or print "foo() failed\n";
+
+
+print 'Hello' . ' world';
+print "\n";
+
+my $str = "hi";
+my $repeated_str = $str x 5;
+println("$repeated_str");
+
+println($repeated_str eq 'hihihihihi');
+
+println($str ne 'hi');
+
+$str =~ s/i/m/g;
+println($str);
+
+
+print 'A' .. 'Z', "\n";
+print 'a' .. 'z', "\n";
+print 'A' .. 'z', "\n";
+print 1 .. 20, "\n";
+print '&' .. '!', "\n";
+print 10 .. -10, "\n";
+print "$_\n" foreach 1 .. 10, "\n";