use Unicode::String qw(utf8);
#....
print utf8($file_cnt);