Well, I got one down to 66:

$x=' *'x5;print$_%2?$_<1?$x:'':$_<1?"*$x".'='x15:'='x26,$/for-6..6
#23456789_123456789_123456789_123456789_123456789_123456789_123456
[download]

But then I noticed suaveant's reworking of dragonchild's can be shaved to 65:

print+(@s=('*'," *"x5,"="x15,$/)," *"x5,$/)x3,@s,($/,'='x26,$/)x3
#23456789_123456789_123456789_123456789_123456789_123456789_12345
[download]

sigh

++ for simply bothering to figure out the mess of trinaries! :)

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

Ha, you better hope no one actually creates a node named 112874, like someone did with 847 (opposed to node_id=847)... Anyway, I chopped three chars off it like this.

use LWP::Simple;print+(get"http://3467251276/?node=112874")=~/(\*.*?)<
+/s
[download]

-Blake

If LWP::Simple is installed, GET should be too, so I make it in 51 chars. Oh, and I print to STDERR instead.

die+(`GET "3467251276/?node=112874"`)=~/(\*.*?)</s
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Since it's frontpaged now, I can get that one down to 63. (The extra space is needed because somebody said "*BSD")

use LWP::Simple;print+(get"http://perlmonks.org")=~/(\* .*?)</s
[download]

update: it got knocked off the front page, so this won't work any more :-(

-- MrNobo1024

s]]HrLfbfe|EbBibmv]e|s}w}ciZx^RYhL}e^print

@s=("\n","* "x6,"="x13,"\n"," *"x5)x3;@t=("\n","="x26,"\n")x3;print "@
+s@t";
[download]

Update: You're right it doesn't. Didn't notice that. Looks like the rest of you are taking what I made and running w/ it. *shrug*

oooh, with some mods to yours...

sub f{print(($/,"* "x5,'*',"="x15,$/," *"x5)x3,($/,"="x26,$/)x3)}
      123456789_123456789_123456789_123456789_123456789_12345678
[download]

58!

and it prints the same as the example

                - Ant
                - Some of my best work - Fish Dinner

Actually, it doesn't.

@s=('*'," *"x5,"="x15,$/);print((@s," *"x5,$/)x3,@s,($/,'='x26,$/)x3)
[download]

and that's a nice round 69! :)

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

I count you at 73 (congratz!), but I also don't think it gives what Masem asked for. Using your idea, I got me down to 87 chars:

@s=('*',' *'x5,'='x15,"\n");@t=(' *'x5,"\n",@s)x3;@u=("\n",'='x26,"\n"
+)x3;print@s,@t,@u
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

I think your code produces a picture that's a little bit different from the original question.

Here's one at 83:

@s=("*"," *"x5,"="x15,"\n");@p=((@s," *"x5,"\n")x3,@s,("\n",'='x26,"\n
+")x3);print@p
[download]

Looks like the rest of you are taking what I made and running w/ it.

I think this would exemplify the core philosophy of the Free Software movement. i.e. Take a good idea and refine it.

sub f{push@f,(($_%2?'=':' ')x26,"\n")for(1..13);for$i(0..6){$f[$i*27+$
+_]=(($_+$i+1)%2?'*':' ')for(0..10)}print@f}
      123456789_123456789_123456789_123456789_123456789_123456789_1234
+56789_123456789_123456789_123456789_123456
[download]

Update! Not to be outdone!

sub f{@f=(('=')x26,$/,($")x26,$/)x6;for$i(0..7){$f[$i*27+$_]=(($_+$i+1
+)%2?'*':$")for(0..10)}print@f}
      123456789_123456789_123456789_123456789_123456789_123456789_1234
+56789_123456789_123456789_123
[download]

Update293... took out an accidental space

                - Ant
                - Some of my best work - Fish Dinner

$f='* 'x5;$e='='x15;$g='='x11;$h="$f*$e\n";$i=" $f\n$h";$c="$h$i$i$i\n
+";$_=$c."$e$g\n\n"x3;print
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

127 but uses no x or map

$l="* * * * * *===============\n";$e=$b=$s=$l;$s=~y/*= /  */;$b=~y/ */
+==/;$e=~y/*=/  /;$m=$l.$s;$f=$e.$b;print "$m$m$m$l$f$f$f";
[download]

Well, I was in the running there for a little while, but it looks like the really elegant solutions are coming out now, and I got left in the dust... But I worked on this all afternoon, so I'll contribute it anyway.

I have it at 78 characters.

sub f{
for((5)x3,0){print'*',' *'x5,'='x15,"\n ",'* 'x$_,"\n"}print+('='x26,"
+$/$/")x3
}
[download]

Update: For those curious, here's another angle I was working on, at 81 characters:

sub f {
for(1..7){($d=$d?'':'='x15)&&print'*';print' *'x5,"$d\n"}print+($/.('=
+'x26).$/)x3
}
[download]

"We're experiencing some Godzilla-related turbulence..."

print+(' *'x5,'* 'x5 .'*'.'='x15,'='x26 .($,=$/))[101013222=~/./g]
[download]

print+($_=' *'x5,"*$_".'='x15,($,=$/).'='x26)[1010101222=~/./g]
[download]

-- MrNobo1024

s]]HrLfbfe|EbBibmv]e|s}w}ciZx^RYhL}e^print

%h=(
0=>' *',
5=>' ',
20=>"\n",
21=>'* ',
26=>'*',
27=>'=',
42=>"\n",
43=>'=',
69=>"\n"
);
sub f{$n=$h{$_}?$_:$n;print$h{$n}}
f for 21..42;
for(0..2){f for 0..42}
for(0..2){f for 42..69}
[download]

bash-2.03$ perl 2>&1
use Filter::exec 'sh', '-c', 'cat >&2';* * * * * *===============
 * * * * *                
* * * * * *===============
 * * * * *                
* * * * * *===============
 * * * * * 
* * * * * *===============

==========================

==========================

==========================
[download]

$_=unpack"B*",q;_⪐U�*�_⪐U�'�������;;%0=qw;001 JH 0000 AJA 0001 P
+H 01
JA 1 PP;;$"="|";@0=keys%0;chop;s&\G(@0)&$0{$1}≥y;JAPH0; *=\n;d;prin
+t
[download]

Yves
--
You are not ready to use symrefs unless you already know why they are bad. -- tadmc (CLPM)

You guys are insane! I couldn't even come close to getting this node anywhere near 60 characters, but in the light of things mine is 101, for the 101st Airborne! HOAH!
(who-a)adj. slang used by soldiers primarily airborne/rangers refering to anything and everything except no

$p='#'x23;$b='#'x35;$s="* * * * * * $p\n";$f="* * * * * \n";
print"$s $f$s $f$s $f$s\n$b\n\n$b\n\n$b";
[download]


softworkz