# 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;}