Next, handle inline images:  Don’t forget: encode * and _

%r{
      (                                     # Whole match = $1
              !\[ (.*?) \] # alt text = $2
        \([ ]*
              <?(\S+?)>?           # source url = $3
          [ ]*
              (?:                          # 
                (["'])             # quote char = $4
                (.*?)                      # title = $5
                \4                 # matching quote
                [ ]*
              )?                           # title is optional
        \)
      )
}xs