# HG changeset patch
# User HackBot
# Date 1469359109 0
# Node ID f5f1d22db5a42a7564b7607dfa4e2686da2b9b3d
# Parent  c59e0c6ac01193a118794feb4266fdf83258e5fa
<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&32?"":"\\n");\'

diff -r c59e0c6ac011 -r f5f1d22db5a4 bin/hello
--- a/bin/hello	Sun Jul 24 11:09:32 2016 +0000
+++ b/bin/hello	Sun Jul 24 11:18:29 2016 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl
-$c=unpack"C",pack"h2",$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&32?"":"\n");