my first publicly-posted perl obfuscation.

#!/usr/bin/perl -l

print

  bulldozer_("   _                       _          | two
 _ __   ___ _ __| |_ __ ___   ___  _ __ | | _____   |
| '_ \ / _ \ '__| | '_ ` _ \ / _ \| '_ \| |/ / __|  | thousand
| |_) |  __/ |  | | | | | | | (_) | | | |   <\__ \  |
| .__/ \___|_|  |_|_| |_| |_|\___/|_| |_|_|\_\___/  | two
|_|

                      ")               ;sub#marine)
        bulldozer_{ #"=.
$_                   =                 length shift;
$_
--+$_
--+$_
--+$_
--+$_
--+$_
--+$_             }#_bulldozer
[download]

Update: spoiler

A string (the 2002 banner) constructed with figlet and vi is passed to a function named bulldozer_, which takes the length of it and repeatedly adds that number to itself while decrementing it by 1 each time. The result of this construct is passed back to the original print statement.