Ok, but this isn't Baby Perl. It's a lack of basic algorithmic knowledge. Even that would be OK in a system that nobody is paying for.

Seriously, I'd be willing to forgive not having read perlfunc and therefore not knowing that sprintf would work. But a string of ifs? That's bad programming, not just bad Perl.