#!/usr/bin/perl

use strict;

my $l = 30;
my $o = ['A'..'Z'];
my $v = $o->[10].$o->[4].$o->[8].$o->[19].$o->[7].' &';
my $e = $o->[18].$o->[14].$o->[10].$o->[20].$o->[13].$o->[13].$o->[0];

print "\t*" . "-" x $l .                            "*\n";
print "\t*" . " " x $l .                            "*\n";
print "\t*" . " " x ($l-20) . $v . " " x ($l-17) .  "*\n";
print "\t*" . " " x ($l-20) . $e . " " x ($l-17) .  "*\n";
print "\t*"                           . " " x $l .  "*\n";
print "\t*"                           . "-" x $l .  "*\n";

[download]

Replies are listed 'Best First'.
Re: me & Sokunna
by tachyon (Chancellor) on Jul 06, 2001 at 15:29 UTC

    I think this is perhaps a little more obfuscated ;-) 

    use strict;
sub _{"\t*".shift(@_)x$#_."*\n"}my @__=('A'..'Z',$",'&')
;sub __ {"\t*",$"x((@__-@_)/2),@_,$"x((@__-@_)/2),"*\n"}
s//-/; print _($_,@__), _($",@__), __(@__[10,4,8,19,7,26
,27]),__(@__[18,14,10,20,13,13,0]),_($",@__),_($_,@__);#

    [download]

    cheers

    tachyon

    s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]

Back to Obfuscated Code