Select Code to Download

$module = $1 if /^([a-zA-Z_][a-zA-Z_0-0]*(?:(?:'|::)[a-zA-Z_0-0]+)*)$/
+s;
# or

$module = $1 if /\A[^\W\d]\w*(?:(?:\'|::)\w+)*\z/s;