sub checkIsTagValueInclude{ 
  return $_[0] =~ /\A$_[1]\Z/i;
}