$var = 'This is a string';


if ($var =~  m/[i]/)
{
	print "There\'s an \'i\' in \'$var\'.\n"
}


if ($var !~  m/[x]/)
{
	print "There\'s no \'x\' in \'$var\'.\n"
}