if ($_ ne "Pr:" and $tr == 0)


##</code><code>##

if (!/^Pr:/ and $tr == 0)


##</code><code>##

Show me your [code] and conceal your [data structures], and
I shall continue to be mystified. Show me your [data
structures], and I won't usually need your [code]; it'll be
obvious.