small perl script, which tries to shrink simple but long logical expressions