keep perl from complaining about useless \E