while(<>){

     s#<ORGANIZATION>[^<]*</ORGANIZATION>#{ORG}#g;
     s#<PERSON>[^<]*</PERSON>#{PERSON}#g;
     s#<LOCATION>[^<]*</LOCATION>#{LOC}#g;
     s#<ARTIFACT>[^<]*</ARTIFACT>#{ART}#g;
     s#<DATE>[^<]*</DATE>#{DATE}#g;
     s#<TIME>[^<]*</TIME>#{TIME}#g;
     s#<MONEY>[^<]*</MONEY>#{MONEY}#g;
     s#<PERCENT>[^<]*</PERCENT>#{PERCENT}#g;

     print $_;
}