h2t

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