Select Code to Download

#!/usr/bin/perl -W

...
$in[$_] = decode ('cp1252', $in[$_]) for 2..3;

say encode_entities($_) for @in;

output:
☆
...

ϟ
☠