Select Code to Download

while($text =~ m|\*\*(\w+)\b|g) {
    print "Found: " , $1 , "\n";
}

m|
 \*     #literal asterisk
...
 )      #end capture
 \b     #word boundary
|gx     #/x allows whitespace, /g makes it global (restart from last m
+atch position in this case)