if( QLearn('LEARN') )
        {       $var->{SPEC} =~ s/%%/$var->{LEARN}{TEST}/ ;        }