$n= $a=~ s/\46/\46\46/g; 
if ($n) 
{ print "Had $n quotes, doubled them\n"; } 
else { print "No qoutes\n"; }