perl selector should be case-insensitive