有些 Perl 程式 真的很醜 Perl code can go really UGLY