When you read the file into the array, you read the line terminators as well. Those line terminators start a new line in the textarea, too. When you interpolated the array into a string with -default=>"@source", perl used the value of $" (a space by default) to separate the elements. This is where the extra space came from on the second and subsequent lines.

There are a couple of ways I can think of to fix this. Choose one of these to suit your tastes.

• Use chomp @source to remove the newline characters before interpolating into the string. This will allow the textarea to rewrap the text.
• Set $" to an empty string before the interpolation. This will keep the current line breaks when loaded into the textarea. You might want to use local ($") = "" here. The local will reset $" back to its previous value when your program leaves the current scope.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';
[download]