#!/usr/bin/perl -l

#                                                          ppg256-4.pl
# Perl Poetry Generator in 256 Characters, Number 4
# Nick Montfort nickm@nickm.com
#====================================================================#
#
# This is a Perl program that will run on Mac and Linux on the command
# line and which is 256 characters long:
#
# perl -le 'sub c{@_=split/_/,pop;$_[rand@_]}sub w{c(b_br_d_f_fl_l_m_p_s_tr_w).c(ad_ag_ap_at_ay_ip_on_ot_ow)}{print"\n".c(be_de_mis_re_pre_).w." ".c(a_on_the_that_)." ".w.w.", ".c(boss_bro_buddy_dogg_dude_guy_man_pal_vato);sleep 4;redo} #No LED sign version, Perl 5.12'
#
# This program is provided here in a file for your convenience.
#
# The LED sign version, for use with that display, is:
#
# ...
#
# This program is provided here in a file for your convenience.
#
# On Windows, install ActivePerl to be able to run this program.
# To run, change to the directory where this file is located and type
# at the command prompt:
#
# perl -l ppg256-4.pl

sub c{@_=split/_/,pop;$_[rand@_]}sub w{c(b_br_d_f_fl_l_m_p_s_tr_w).c(ad_ag_ap_at_ay_ip_on_ot_ow)}{print"\n".c(be_de_mis_re_pre_).w." ".c(a_on_the_that_)." ".w.w.", ".c(boss_bro_buddy_dogg_dude_guy_man_pal_vato);sleep 4;redo} #No LED sign version, Perl 5.12