#!/usr/bin/perl
#replace_selected

use strict;
 
my $inText = $ARGV[1];

$inText =~ s/&lt;/</g;
$inText =~ s/&gt;/>/g;
$inText =~ s/&amp;/&/g;

print $inText;