diff --git a/Markdown.pl b/Markdown.pl
index 63eff11..dfd69cb 100755
--- a/Markdown.pl
+++ b/Markdown.pl
@@ -1131,7 +1131,7 @@ sub _HashBTCodeBlocks {
 
     $text =~ s{
 	    (?:(?<=\n)|\A)
-		([ ]{0,$less_than_indent})``(`+)[ \t]*(?:([\w.+-]+[#]?)[ \t]*)?\n
+		([ ]{0,$less_than_indent})``(`+)[ \t]*(?:([\w.+-]+[#]?)(?:[ \t][ \t\w.+-]*)?)?\n
 	     ( # $4 = the code block -- one or more lines, starting with ```
 	      (?:
 		.*\n+