Select Code to Download

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