my %entity = ( 
               '<' => '&lt;', 
               '>' => '&gt;', 
               '&' => '&amp;',
               '"' => '&quot;',
             );
$output =~ s/([<>&"])/$entity{$1}/g;
print $output;