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

#!/usr/bin/env perl
$_=<<_;
Strings of strings and other such things
Compiled, refiled, refined
Incantations untold, the squiggles unfold
Decoded, reloaded, unkind

Look ahead, look behind, grab what we can
A match, a word, a line
Dynamic expression, embedded return
A sigil, a slash, a sign

Deadline approaches, write it out quick
Lazy impatience employs
Indistinguishable from magic, true
Elegant prose or just noise?
_
print/^(?:\S+\s){8}(..).{284}(..).{5}(.).{8}(.)(?:
\S+\s){4}.(..)(?<=(.{10}).{160})..(.).{8}(.)/sgx

[download]

Replies are listed 'Best First'.
Re: regular expressions
by Zaxo (Archbishop) on Feb 26, 2007 at 04:10 UTC

    I like it. Unix monks should be sure to have crlf for newlines.

    After Compline,
    Zaxo

[reply]
Re: regular expressions
by Anonymous Monk on Feb 28, 2007 at 00:40 UTC
    Beautiful. Inspirational. Leagues ahead of my talents ...
    - Laz.
[reply]

Back to Perl Poetry