$a = grep /\*/, $the_asterix_string;

##</code><code>##

if ($a) {
:
}