if ($a =~ /'/) {....}
if (index ($a, "'") >= 0) {....}
if (split ($a, "'", -1) >= 2) {....}
if ($a =~ y/'/'/) {....}

##</code><code>##

 $a = "A\'\'Bcd"