#!/usr/bin/perl
use strict;
use warnings;
use HTML::Entities qw(decode_entities);
my $htmlstring = 'This text contains an encoded "<" tag';
print decode_entities($htmlstring),"\n";