#!/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]