bad perl regex