Perl: There's more than one way to do it
Python: There are 37,234,108 ways to do it, and all of them are inefficient as fuck, except that one way which you can only find out about if you sacrifice your self-respect and five pints of your own blood on the altar of StackOverflow, if you're not first flamed to hell for asking an inappropriate question.