binmode *DATA, ':encoding(UTF-8)';
while (<DATA>) {  # This populates $_ with decoded Unicode data, not bytes.
    ...
)