open(my $fh, '<:encoding(UTF-8)', $input);
    while ($fh) {