Passes with flying colors with Perl 5.00404 on Debian Slink, and 5.006 on OpenBSD 2.7.

Would any fine Monks care to enlighten humble ybiC on how Adam's code works?   Special measures to adapt it to CGI use?

Correction: the code is turnstep's, as tweaked by Adam.

Update: sincere thanks to turnstep and Adam for explaining their obfuscations to pre-obfuscatory ybiC.
    cheers,
    ybiC

#!/usr/bin/perl -w
use strict;

$"='ox'x5,
$_="1 2 3\n4 5 6\n7 8 9 "
{$^=chop$"
print"$_$^ =>"
{<>=~/^(\d)$/i&&s/$1/$^/m or redo}
(m/^($^.){3}|($^.{5}){2}$^|$^.{7}$^.{7}$^|^.(...$^){3}/smx|$.>8)
or redo}y/0-9/-/;
print
[download]