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