fix regex quoting

huh, gave

 Useless use of \E at /opt/chj/bin/gtra line 75.

on Mageia (Perl v5.16.3), wouldn't have noticed otherwise?...