use strict;
my $str = 'This is a regex to detect markdown image links of the form ![image caption](image URL)
![Caption.](image.png){#fig:id}
![Caption.](image.png){#fig:id tag="B.1"}
![This is a sample image representing the VOD curve of a packaged Watergel explosive.](../assets/1v6C9yek3pHsXSeOlR4glzDMkFqFHizR6VXr79tEOnY=.png){#fig:ch0_1_images-1 width=100%}
![](../../assets/E5WnRoSH_Dqrzl8f5_ZJ9AjWc-53BgiBqD_xTqEp6pM=.png)
![](../../assets/l2mxAo3IR1dc3Wrgt7Ulqhcm_8nwqFw5UY7pUI3X0oI=.png)
![](../../assets/Y7jjv0ceQH5Ew5O32U2Z_N7ARBfKn2FnHnUoUt_DYbA=.png)
![](../../assets/eOvy-JcdA7pjoDJS4rIgG5RgDfYJ4PY11Owbgy5DHWM=.png)
![](../../assets/XwMrG0o__iLF5nStoSPUuJ81ffxafRBWAVnEcGo10Yo=.png)
![](../../assets/AfHKsc518nK6Ew2MHJt96lJMkTiVAyIiuva6L-lRQaQ=.png)
![](../../assets/JyDHFl6DyL1mw5EI-pSb9ssNzmbsEaSPQn5AOiZqeiM=.png)
![](../../assets/BYGvFWn41qFZuU3C7Jyd1uHjs8Cib8eEJod0sIze9S0=.png)
![](../../assets/77U97Em8AN06LCGVxH6UQ_Lh3OZkNsJRkMZY1nBMVrA=.png)
![](../../assets/iPkPth_Vh_wSgeD0wqxlctDyDEmgHfYuhTqBQE6mynI=.png)
![](../../assets/h57_b4_XeFd5SR1iYLu9WsYNy_n8sM6rPbQdGephk1c=.png)
![](../../assets/u8Y_44VG3-pD8fweuazkSN9fflhJfgCqOtc2ooP2sVM=.png)
![](../../assets/dc-ExOEXIWnH0qwVHTSNmFljUwyKS0xeEYFxS98ZEYg=.png)
![](../../assets/nJZLBZEOCiOT2P1F2c5mVQZrCrIJB5i1EnRgT767WWo=.png)
![](../../assets/ilG_dm7Lr3315RFsUdJCW7tkJbTZlnmV_NNKFBDeyxc=.png)
![](../../assets/1v6C9yek3pHsXSeOlR4glzDMkFqFHizR6VXr79tEOnY=.png)
![](../../assets/Bw1eWhlyutzMa8Eg94-VnSk_TsffrBLeoZKWySkMwIw=.png)
![](../../assets/9RIkA4mInkKNSIxMi7ctUozBJPUqlHPugIfG2yr37Co=.png)
![Hyperbola](../../assets/300px-Hyperbola_properties.svg.png)
![Hyperbola](../../assets/HyperbolaAnatomyLeft.png)
![Hyperbola](../../assets/HyperbolaAnatomyRight.png)
![](../../assets/IsXLnPl1wKraeLnryg2rOxtYdGSSHg8vTTN1ObV0Dt8=.png)';
my $regex = qr/(?:[^!]\[(?P<caption>.*?)\])\((?P<image>.*?)\)/mp;
if ( $str =~ /$regex/g ) {
print "Whole match is ${^MATCH} and its start/end positions can be obtained via \$-[0] and \$+[0]\n";
# print "Capture Group 1 is $1 and its start/end positions can be obtained via \$-[1] and \$+[1]\n";
# print "Capture Group 2 is $2 ... and so on\n";
}
# ${^POSTMATCH} and ${^PREMATCH} are also available with the use of '/p'
# Named capture groups can be called via $+{name}
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html