When cleaning up your code, you may want to look at Parse::RecDescent.
I think it would make life easier with Condit as well as Obfuna.

But thats just my $0.02.

Cheshire Cat :)