Data commit

Task/String-prepend/Perl/string-prepend.pl

@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+use feature ':all';
+
+# explicit concatentation
+$_ = 'bar';
+$_ = 'Foo' . $_;
+say;
+
+
+# lvalue substr
+$_ = 'bar';
+substr $_, 0, 0, 'Foo';
+say;
+
+
+# interpolation as concatenation
+# (NOT safe if concatenate sigils)
+$_ = 'bar';
+$_ = "Foo$_";
+say;