$VAR1 = [
          bless( {
                   '_TkValue_' => '.labentry.entry',
                   '_XEvent_' => bless( do{\(my $o = '   $   ÿÿÿÿü˜ï¬
œ¿ê    Tç®       t
  û      A   
   a   
               A   (ø \'ààï ù a   ¼èˆ ä"¶ÔŒ')}, 'XEvent' )
                 }, 'Tk::Entry' )
        ];