#!/usr/bin/perl

use strict;
use warnings;

while( <DATA>)
  { s{>([^<]*)>}{>$1&gt;}g; 
    s{<([^>]*)<}{&gt;$1<}g; 
    s{&(?!\w+;|#)}{&amp;}g; 

    print;
  }

__DATA__
<doc><data>></data><data>if( 1 < 2 && 2 < 3)</data></doc>