if ( grep { !/^$str/i } keys %$format)