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