in reply to perl code question

Have you tried TITS? What happened when you ran it?

In Section Seekers of Perl Wisdom