view wisdom/`hello @ 11295:0b054ddeff49

<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/(fifth) kind of vitreous/$1/ or die; if (1) { open$o,">",$f; print$o $_ or die; } print substr$_,200;
author HackBot
date Mon, 01 Jan 2018 18:01:49 +0000
parents a63e04458b89
children 2a34e647b1b7
line wrap: on
line source

`hello prints variants of hello, world. To control format, pass a single letter as command-line argument. "@"=>"hello, world", "H"=>"hello, world.", P=>"hello, world!", "X"=>"hello, world,", take 1 letter later to s/h/H/, 2 letter later to s/d,/d/, 4 letter later to s/w/W/, lowercase to remove newline.