Deepak Chopra nonsense phrase generator implementation in Perl