"There's more than one way to do it" (TMTOWTDI or TIMTOWTDI) is a Perl motto. Perl was written with that idea
in mind. This can allow developers to write "ugly" Perl -- or quite the opposite, as @peteretep said.
Even Python, who's motto would be closer to "one right way to do it" always has more than one way. So you're statement doesn't explain anything I'm afraid.
If you want beautiful Perl, pick up Kaufmann's "Higher-Order Perl." It has a number of functional design patterns and ideas which are useful and elegant. The author claims that where most people write C in Perl, his book is an attempt to convince you to write Lisp in Perl.
>The author claims that where most people write C in Perl, his book is an attempt to convince you to write Lisp in Perl.
Wouldn't it be less work to just write Lisp in Lisp?
For instance, the CPAN module Devel::Declare is a sad excuse for real lisp macros but, afaik, it is still better than most anything else.
(Lisp dialects are sadly seldom possible to use for lack needed libraries like good Unicode support, etc.)
(Btw, Mark Jason Dominus wrote "Higher-Order Perl" http://hop.perl.plover.com/)