Constants don't have leading dollar signs.

do_something() if (CONSTANT);
do_something_else() if (CONSTANT & ANOTHER_CONSTANT);
[download]

If there's a dollar sign, it's not a constant, and Perl won't optimize it away.