in reply to Regex On Your Tombstone?

while (/(*FAIL)/) {
    redo;
}

END {
    /(*ACCEPT)/;
}

[download]

Greetings,
-jo

$gryYup$d0ylprbpriprrYpkJl2xyl~rzg??P~5lp2hyl0p$

In Section Perl Poetry