use Tk; 
my $m = MainWindow->new;
my $t = $m->Text->pack;
$t->search('-regexp', '', '1.0', 'end'); # debugger crash