in reply to solving Flip Flop equations in perl

$Qn = $CP ? $Qn_1 : $EN;

[download]

In Section Seekers of Perl Wisdom