Help for this page
$text = q"'$' and '***'"; $text =~ /\$(.*)\*\*\*/; print $1;
$text =~ /\$(.*)\*{3}/;