Hi, You could also try to set special $/ to a null string; $/ = "";, then perl read paragraph of text, including new lines.

$/ = "";
while(<FH>) { 
# $_ will contain the entire paragraph, more than just a line
$MainText->insert("end", $_);
}
[download]

This should speed up loading the text into the widget.