modify -E to -e of Perl Oneliner