@x=split($"=''
         , 'brooks wending seaward'
         . 'jaunt hellbent through summer crops'
         . 'lick the dawntime waves');
print "@x[22,24,45,62] @x[17,9,3,37,43,49,50] ";
print "@x[55,49,39,31] @x[38,76,52,4,8,20]\n";

[download]

Best, beth

Contextual note:the river Sorek and Route 1 connect Jerusalem to Tel Aviv.

Replies are listed 'Best First'.
Re: A Slice of Life (Journey to Tel Aviv)
by ack (Deacon) on Jul 16, 2009 at 04:15 UTC

    Wow! That is so cool!

    A great haiku embedded in a Perl script that prints out a great message.

    You've raised the bar.

    Thanks for the great poetry and for the inspiration.

    ack Albuquerque, NM
[reply]
Re: A Slice of Life (Journey to Tel Aviv)
by naildownx (Beadle) on Jul 16, 2009 at 05:08 UTC
    To make this more accurate, perhaps this is a possibility...

    #!/usr/bin/perl

@x=split($"=''
         , 'brooks wending seaward'
         . 'jaunt hellbent through summer crops'
         . 'lick the dawntime waves');
print "@x[22,24,45,62] @x[17,9,3,37,43,49,50] ";
print uc(@x[55])."@x[49,39,31] @x[38,76,52,4,8,20]\n";

    [download]
    The early bird gets the worm but the second mouse gets the cheese.
    pretendeavor
[reply]
[d/l]

Back to Perl Poetry