if( not $txt_scroll->search(qw' -forwards -exact ', $current_ip, '1.0') ){
    $txt_scroll->insert( 'end', "SELECTED IP : $current_ip\n" );
}