$ perl -lwe '$_="hi MOM and DAD"; print;
               s!([A-Z]+)!<i>$1</i>!g; print'
  hi MOM and DAD
  hi <i>MOM</i> and <i>DAD</i>