なんかヘンだ。
print qq(${char}\n);
は
print $char . "\n";
とか
print "$char\n";
にならんのか？

いや、オフトピだけどさぁｗ