sub checkIsTagValueInclude { 
    my ($tagvalue, $search) = @_;
    return ";$tagvalue;" =~ m/;$search;/i ? 1 : 0;
}