open my $fh, '<:encoding(UTF-8)', $input or die "Cannot open $input $!";
    while (<$fh>) {