# HG changeset patch
# User HackBot
# Date 1469359310 0
# Node ID b7fe903051296a80eb954c8402e90ed55648dfe8
# Parent  f5f1d22db5a42a7564b7607dfa4e2686da2b9b3d
<wob_jonas> `` e=bin/hello;>$e echo $\'#!/usr/bin/perl\\n\'\'$c=unpack"C",$ARGV[0];print+($c&1?"H":"h"),"ello",($c&2?"":","),($c&4?" W":" w"),"orld",($c&16?$c&8?",":"!":$c&8?".":""),($c&32?"":"\\n");\'

diff -r f5f1d22db5a4 -r b7fe90305129 bin/hello
--- a/bin/hello	Sun Jul 24 11:18:29 2016 +0000
+++ b/bin/hello	Sun Jul 24 11:21:50 2016 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl
-$c=unpack"C",$ARGV[0];print+($c&1?"H":"h"),"ello",($c&2?"":","),($c&4?" W":" w"),"orld",($c&16?"!":$c&8?".":""),($c&32?"":"\n");
+$c=unpack"C",$ARGV[0];print+($c&1?"H":"h"),"ello",($c&2?"":","),($c&4?" W":" w"),"orld",($c&16?$c&8?",":"!":$c&8?".":""),($c&32?"":"\n");