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