I was really just asking for a couple of short examples of scripts that demonstrate your point, based on Perl as it is now, not anything regarding its history.