if ($string =~ /^brown,Y/gi)
{do this}
else
{do this}