The Perl Diamond

[BronzeWing]

It runs with warnings and strict on, and even takes a command-line parameter. For your viewing pleasure, the Perl Diamond!

      ;
     $.=
    $ARGV
   [$-*$-]
  ||6;print
 $"x(abs($_)
),$-x(($.-abs
 ($_))*(2)+1
  ),($/)for
   ((-($.)
    ..($.
     )))
      ;

-BronzeWing

---

The Secret to Fortune Cookies in One Line
print join("... in bed", `fortune fortunes` =~ m/^(.*)(\.|\?|\!)$/), "\n";

[cecil36]

If you want a cool visual effect, run this script in an xterm or dos window and pass a large number (I ran it with 1000) to the script. Otherwise, very well done!

[HiFoo]

Very nice. Another fun visual effect is to use a number two times the character width of your terminal, and then scroll up.

[locked_user mtve]

cutting off odd faces of crystal:

     print
    $"x+abs
   ,$-x2x($.
  -abs),0,$/,
   for-+($.=
    pop||6)
     ..$.;