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