Have a look at http://images.ucomics.com/comics/ft/2003/ft031003.gif. It features this piece of code:

#include <stdio.h>
int main(void)
{
    int count;

    for(count=1;count<=500;count++)
        printf("I will not throw paper airplanes in class.");

    return 0;
}
[download]

Of course, when I pasted the URL of the comic in a Perl IRC channel, people started to craft Perl equivalents right away. The problem was obvious: TIMTOWTDI.

Exactly how many different ways of printing "I will not throw paper airplanes in class." 500 times does Perl have?

Golf and obfu are welcome, but don't forget the obvious beginner-friendly solutions. Bonus points for those who benchmark CPU and memory usage :)

Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }