use E flag for pattern expansion

It is better to reserve e flag for compatibility with Perl s///e.