Concrete Perl
h d d k x v d r k y p s b a b a n i k d u u v r c q i e z j s s v h t l i r k k n k n n m z b q b k x m d u z f s g p u z v y v m f s i u p p z r n t k f b h v q l x w h x f x c i w v f k h l a i o q s z n z u n c l w d a d a m j b e m n b q o u o e n s r b o j b q q t q s f n i f u l
You can download the linked Perl files and/or simply copy and paste the following four lines, which correspond to the four titles above:
perl -e '{print"a"x++$...$"x$.,$,=_;redo}'perl -e '{print$,=$"x($.+=.01),a..z;redo}'perl -e '{print" ".chr for 32..126;redo}'perl -e '{print$",$_=(a..z)[rand$=];redo}'
For purposes of determining the platform precisely and counting characters, the rules of Perl Golf are used. These rules, for instance, do not count the (optional) newline at the end of a one-line program. The Concrete Perl programs work on all standard versions of Perl 5.8.0 and have been verified as 32 characters long using a count program.
These programs are also written to work and to be visually pleasing on terminal windows (or terminals) of essentially any geometry.
Concrete Perl was offered to the demoscene; then, I discussed it in my talk “Beyond Data-Driven Poetry: ppg256 and Concrete Perl,” on a panel at Digital Humanities 2011, Stanford, June 22, 2011.
These poems have been trasposed from the Latin to the Cyrrilic alphabet as Perl конкретизм.
p j o c v v n v t g k t i s h f j v e d v c e b p z p e s s d o f z v p s t z i b f j w l p z y f j w k k p k y n v f g u m r m k x i w l s a t n b a f w q y u t p r p w p m d x j c j j n z k a j z i s w a w q k j y y k c r d i b p f z h i x i c o x f p f u d g z y f b y v q v g v o j l