It might not be hard to read, but I'll bet you can't guess what this'll print before you run it!

#!/usr/bin/perl

for my $x (0..4) {
    $y = sprintf('%.0f',
        -( 2+( 7/12)) * ($x**4) +
        +(13+( 8/12)) * ($x**3) +
        -(26+(11/12)) * ($x**2) +
        +(36+(10/12)) * ($x**1) +
        +(80+( 0/12)) * ($x**0)
    );
    print chr($y);
}
[download]

Be gentle, this is my first one.

-BronzeWing

---

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