Can't modify array deref in substitution at t.pl line 2, near "s/[oe]/_/g;"