I'm new to the whole Perl poetry thing here, so bear with me. I'm a big fan of 'Black Perl', so here is 'Blue Perl':

package in;

split my $_=fork, pop and wait;
for my $passion (@to_terminate)
{
    map {my $body} ($through and $through);
    shift @me,'oh'..'so close to you!';
}
listen 'closer',$_ foreach $breath;
kill $me,'with that little death';
"What's the meaning of this rhyme"?
'You will come to learn in' : time;
if (our $little_code) {'is_run'};
'Then the two'. $will_be.'as',
1;

[download]
EDIT: Some changes made according to suggestions from tobyink. Also, couldn't resist adding "package" to that! :)

Replies are listed 'Best First'.
Re: Blue Perl
by tobyink (Canon) on Apr 03, 2012 at 07:41 UTC

    This doesn't work for me:

    listen 'closer' foreach $breath;

    [download]

    I get "Not enough arguments for listen".

    The following runs without error on 5.10.1. I've added $_ as an argument to listen (0 could work too) and used a few more barewords here and there. Also, added or after the listen line as it seems to improve the rhythm.

    split my $_=fork, pop and wait;
for my $passion (@to_terminate)
{
    map {my $body} ($through and $through);
    shift @me, oh .. so . close to . 'you!'
}
listen closer, $_ foreach @breath or
kill $me, 'with that little death';
"What's the meaning of this rhyme"?
'You will come to learn in' : time;
if ($this_little) { $code . is_run };
Then . the . two . $will_be . as ,
1;

    [download]

    I'm surprised you didn't work join into there. You could make the last lines:

    if (this_little . code . is_run ) {
join the . two , of . us , as } 1

    [download]

    Or even:

    if ( our $little_code = run ) {
join the . two , of . us , as } 1

    [download]
    perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
[d/l]
[select]
Re: Blue Perl
by Anonymous Monk on Apr 03, 2012 at 11:01 UTC
[reply]

Back to Perl Poetry