$ perl properties.pl TLPDILHASGPPGPPGQPEQPGAGRLittle did I know that mine was inferior to Bio::Tools::OddCodes, which I could have downloaded for free in about 1 minute.
But, in my defense, not knowing that tool existed it would have taken me longer to find it (not knowing what I was searching for) than to write my own from scratch.
And as a programmer, it's far more fun and satisfying to spend 15 minutes solving a problem and impressing people than to spend 15 minutes searching the Internet for something you may never find.
So perhaps reinventing the wheel is good for morale sometimes. Trivial wheels, at least. :)