D'oh, don't need to calculate the maximum line length (in $-) since it's known to be 82 for shape Saturn. That, plus some routine whittling has reduced the golf score by 39 strokes down to 452.

sub I{s-^-$"x$_[1]-gem;$/x$_[0].$_.$/}
sub D{$~=shift;system($^O=~Win?CLS:"clear"),print,
select$Z,$Z,$Z,$~for@_}
sub R{$i=0;join$/,map{$j=0;join"",grep!($j++%$_[0]),/./g}
grep!($i++%$_[0]),@:}
$S=join"",@:=<DATA>;chop@:;
$_.=$"x-(y---c-82)for@:;
D.3,@X=(I(20,41,$_="."),I(20,41,$_=O),I(15,31,$_=R 4),
I(13,28,$_=R 3),I(10,20,$_=R 2),$S);
D.2,(map{$n=$_;join($/,map$_ x$n,R($_)=~/.+/g,"")x$_}2..4)
[0..2,1,0];
D.1,$S,join"",map+reverse.$/,@:for$%..5;D.3,reverse@X

[download]

Update: Down to 437 now. There must be more there, let's see if thospel or mtve can beat this by 100 strokes. :-)

sub I{$x=pop;$x=~s-^-$"x$_[1]-gem;$/x$_[0].$x.$/}
sub D{$~=shift;system($^O=~Win?CLS:"clear"),print,
select$Z,$Z,$Z,$~for@_}
sub R{$i=0;join$/,map{$j=0;join"",grep!($j++%$_[0]),/./g}
grep!($i++%$_[0]),@:}
$S=join"",@:=<DATA>;
chop,$_.=$"x-(y---c-82)for@:;
D.3,@X=(map(I(20,41,$_),".",O),I(15,31,R 4),
I(13,28,R 3),I(10,20,R 2),$S);
D.2,map{$n=$_;join($/,map$_ x$n,R($_)=~/.+/g,"")x$_}2..4,3,2;
D.1,$S,join"",map+reverse.$/,@:for$%..5;D.3,reverse@X

[download]

Still chipping away... 425

sub I{$x=pop;$x=~s-^-$"x$_[1]-gem;$/x$_[0].$x.$/}
sub D{system$^O=~Win?CLS:"clear";print;select$Z,$Z,$Z,pop}
sub R{$i=0;join$/,map{$j=0;join"",grep!($j++%$_[0]),/./g}
grep!($i++%$_[0]),@:}
$S=join"",@:=<DATA>;
chop,$_.=$"x-(y---c-82)for@:;
D.3for@X=(map(I(20,41,$_),".",O),I(15,31,R 4),
I(13,28,R 3),I(10,20,R 2),$S);
for$n(2..4,3,2){$_=join($/,map$_ x$n,R($n)=~/.+/g,"")x$n;D.2}
D.1for($S,join"",map+reverse.$/,@:)x6;
D.3for+reverse@X

[download]

In reply to Re: Playing Golf on Saturn (437) by eyepopslikeamosquito
in thread Playing Golf on Saturn by eyepopslikeamosquito

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.