Help for this page
#!/usr/bin/perl + ... + print $ "," "
$= = '_' eq '_'; $- = () = ('(', ')'); ... $/ = $/ >> $= || $* * $-; $/ = $/ & ~$* / $- and goto _; print $", "\n";
$= = '_' eq '_';
$- = () = ('(',')');
$* = $- * $- * $-;
$/ = $- + $*;
_: $" .= chr $/ + $* ** $-;
$/ = $/ >> $= || $* * $-;
$/ = $/ & ~$* / $- and goto _;
print $", "\n";
$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } + sig map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu +" );
www.com | www.net | www.org
No recent polls found