in reply to why doesn't this flip-flop work?

use warnings; will give you a clue.

How do you think your first conditional parses?

Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom