separate perl operators with whitespace

[unicode-sampler.git] / unicode.txt

diff --git a/unicode.txt b/unicode.txt
index cf94db3f0b948f4674a9b557c900ae7b35418b85..b4f40c85bd961d2b515c6b8e048a2413d3015266 100644 (file)
--- 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