Should those all have alternators between them? If not, it's looking for a specific string. Of course, it should use tr instead, but I presume that's why it's bad code.
Caution: Contents may have been coded under pressure.
Comment on Re^2: Pearls (not really) of Perl programming