t2h

   1 #!/usr/bin/env perl
   2
   3 # t2h
   4 # File ID: 099f1bbc-5d46-11df-bb8a-90e6ba3022ac
   5
   6 use strict;
   7 use warnings;
   8
   9 while (<>) {
  10         s/&/&amp;/g;
  11         s/</&lt;/g;
  12         s/>/&gt;/g;
  13         print;
  14 }