use strict;
use warnings;
use utf8; # I will write this script in UTF-8
use open qw(:std :locale); # All files to be open in the native cp
use locale; # I want my string comparisons according to native locale