@a = ("one","two","three");
@a =~ s/[oe]/_/g;
print join("\n",@a),"\n";