$variable=1;

if ($variable =~/[1,2,3]/)
{
	print "Did it!\n";
}