Select Code to Download

perl -le '$_ = "foo\n";print "string with trailing newline" if !/.*\z/
+ and /.*\z/s'
string with trailing newline
perl -le '$_ = "foo\nbar";print "string with trailing newline" if !/.*
+\z/ and /.*\z/s'