my $textbox = $mw->Text( 
    -wrap => 'word',
)->pack( 
    -fill => 'both', 
    -expand => 1,
);

$mw->after(100 => sub { initialize() });
MainLoop;


sub initialize {
    $textbox->insert("1.0", $long_text);
}

##</code><code>##

    -wrap => 'none' .... Don't do any wrapping at all
    -wrap => 'char' .... Wrap between characters
    -wrap => 'word' .... Wrap between words