say $in =~ (/"/g % 2) ? 'invalid' : 'valid';