$text = q"'$' and '***'";
 $text =~ /\$(.*)\*\*\*/;
 print $1;

##</code><code>##

 $text =~ /\$(.*)\*{3}/;