my $searching_string=Encode::decode_utf8( $searching_string_widget );#$searching_string_widget is variable in Entry widget (tk)

##</code><code>##

use Devel::Peek;
Dump($searching_string);