Select Code to Download

my $entry=$mw->Entry(-textvariable=>\$string)->pack();

@array = split (' ', $string);