if ($ag eq "*********") {print "
{print qq[];