Ah, that makes a heap of sense - thank you.

Actually putting the binmode STDOUT, ":utf8"; after the 'corrupting' print:

print "\n" . $output2;
binmode STDOUT, ":utf8";
print "\n$str";
[download]

'fixes' the problem too, but isn't near as clean as the decode solution.