Perl programming language/Talk

        # A sample Perl program
        $message = "Hello, world! The magic number is 234542354.\n";
        print $message;
        $message =~ s/\d+/-1/;
        print $message;
        exit 0

You're saying that it shows "high use of meaningful punctuation characters" ? You've never seen any REAL perl code :). What about using this (uppercase input) as an example:

while(<>) {

 $_=~y/a-z/A-Z/;
 print;

}

 --Taw

---

Even better would be a line noise winner from one of the obfuscated perl contests, if that code is public domain. :-)

But that would miss the point - we want to show real Perl code, not one that was deliberately obfuscated. --Taw