X-Git-Url: http://git.shiar.nl/unicode-sampler.git/blobdiff_plain/af1b8b5c5a887b0ef7be4810e58ba1a0a4864ee0..3226a34332c7aaec32b41c13630d875e7d94baa9:/unicode.txt

diff --git a/unicode.txt b/unicode.txt
index cf94db3..b4f40c8 100644
--- a/unicode.txt
+++ b/unicode.txt
@@ -13,7 +13,7 @@ Code:
 
   while ((c = *l++) != '\0') { m->stat[2] = IO | (~OK & X_8); }
 
-  perl -pe's/\w/$^=~$&>chop($^=$&.$^)?"@-":$&/ge'
+  perl -pe's/\w/$^ =~ $& > chop($^ = $& . $^) ? "@-" : $&/ge'
 
   ↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life