http://www.perlmonks.org?node_id=17838

My first Poem. Please be Kind ;-\ It runs under -w but does nothing... or does it? You may have to squint to read it.
eval <<"I sit Broken Hearted"; tr/ied// || split/but only/; *t="d"; @_ while( -l "ater" ) ; -t "ook" && rand; tr/ied/ 2/; *t and split/"my pants"/; `$0` << ; I sit Broken Hearted
Distributed under the PLA (Poetic License Agreement) Enjoy.