use strict;
my $str = '"<?xml version=\\"1.0\\" standalone=\\"no\\"?>",
"<svg xmlns=\\"http://www.w3.org/2000/svg\\" version=\\"1.1\\" width=\\"1250cm\\" height=\\"1250cm\\">",
"<desc>9W43OV00W8JKMA1IJNEYAM1WTG9AZH8K10LC</desc>",
"<g id=\\"HMLW03D1BYIQ\\" fill=\\"red\\">",
"<rect x=\\"252cm\\" y=\\"252cm\\" width=\\"252cm\\" height=\\"252cm\\"/>",
"<rect x=\\"72cm\\" y=\\"72cm\\" width=\\"72cm\\" height=\\"72cm\\"/>",
"<rect x=\\"131cm\\" y=\\"131cm\\" width=\\"131cm\\" height=\\"131cm\\"/>",
"<rect x=\\"228cm\\" y=\\"228cm\\" width=\\"228cm\\" height=\\"228cm\\"/>",
"<rect x=\\"240cm\\" y=\\"240cm\\" width=\\"240cm\\" height=\\"240cm\\"/>",
"<rect x=\\"232cm\\" y=\\"232cm\\" width=\\"232cm\\" height=\\"232cm\\"/>",
"<rect x=\\"192cm\\" y=\\"192cm\\" width=\\"192cm\\" height=\\"192cm\\"/>",
"<rect x=\\"0cm\\" y=\\"0cm\\" width=\\"0cm\\" height=\\"0cm\\"/>",
"<rect x=\\"0cm\\" y=\\"0cm\\" width=\\"0cm\\" height=\\"0cm\\"/>",
"<rect x=\\"0cm\\" y=\\"0cm\\" width=\\"0cm\\" height=\\"0cm\\"/>",
"<rect x=\\"65cm\\" y=\\"65cm\\" width=\\"65cm\\" height=\\"65cm\\"/>",
"<rect x=\\"81cm\\" y=\\"81cm\\" width=\\"81cm\\" height=\\"81cm\\"/>",
"<rect x=\\"65cm\\" y=\\"65cm\\" width=\\"65cm\\" height=\\"65cm\\"/>",
"<rect x=\\"80cm\\" y=\\"80cm\\" width=\\"80cm\\" height=\\"80cm\\"/>",
"<rect x=\\"82cm\\" y=\\"82cm\\" width=\\"82cm\\" height=\\"82cm\\"/>",
"<rect x=\\"81cm\\" y=\\"81cm\\" width=\\"81cm\\" height=\\"81cm\\"/>",
"</g>"';
my $regex = qr/\\"\d{1,3}cm\\"/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