my first publicly-posted perl obfuscation.
#!/usr/bin/perl -l
print
bulldozer_(" _ _ | two
_ __ ___ _ __| |_ __ ___ ___ _ __ | | _____ |
| '_ \ / _ \ '__| | '_ ` _ \ / _ \| '_ \| |/ / __| | thousand
| |_) | __/ | | | | | | | | (_) | | | | <\__ \ |
| .__/ \___|_| |_|_| |_| |_|\___/|_| |_|_|\_\___/ | two
|_|
") ;sub#marine)
bulldozer_{ #"=.
$_ = length shift;
$_
--+$_
--+$_
--+$_
--+$_
--+$_
--+$_ }#_bulldozer
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.