sub checkIsTagValueInclude {
    my ($tagvalue, $search) = @_;
   
    if (";$tagvalue;" =~ /\;$search\;/i) {
        return 1;
    }

    return 0;
}