separate perl CRAP