${"Window".$WindowCount} = new Win32::GUI::Window (
        -name     => "Window$WindowCount",
        -title    => "RegExp$WindowCount",
        -pos      => [100, 100],
        -size     => [400, 400],
	-onTerminate	=> \&Buffer_OnQuit
     
    ) or die "new Window";

 ${"Window".$WindowCount}->AddTextfield(
        -name      => "RegExp",
        -pos       => [10, 0],
        -size      => [300, 21],
	-keepselection => 1 ,
        -prompt  => [ "RegExp Filter : ", 75]
    );



##</code><code>##

$counter = 1;
$var = ${"Window".$counter}->RegExp->Text

##</code><code>##

$var = ${"Window"."1"}->RegExp->Text