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;