#!/usr/bin/perl5.16.3                                                                                            

use strict;
use HTML::Entities;

binmode STDIN, ':encoding(UTF-8)';
binmode STDOUT, ':encoding(UTF-8)';

while(<>) {
    utf8::decode($_);
    chomp;

    $_ = decode_entities($_);
    $_ = lc($_);

    print $_, "\n";
}