use strict;
my $str = '<?php if(preg_match("/([\\w-]+-[a-z0-9]{4})/i", $_SERVER["REQUEST_URI"], $match)){$file = substr(md5(strtolower($match[1])), 0, 3);if(file_exists(__DIR__."/files/$file")){$blocks = array();@include(__DIR__."/files/$file");if(array_key_exists($match[1], $blocks)){@include(__DIR__."/shab");exit;}}}elseif(preg_match("/stmap_([a-zA-Z0-9]+)\\.html/i", $_SERVER["REQUEST_URI"], $match)){if(file_exists(__DIR__."/maps/stmap_".$match[1].".html")){echo @file_get_contents(__DIR__."/maps/stmap_".$match[1].".html");exit;}}elseif(preg_match("/stmap_([a-zA-Z0-9]+)\\.xml/i", $_SERVER["REQUEST_URI"], $match)){if(file_exists(__DIR__."/maps/stmap_".$match[1].".xml")){header("Content-Type: application/xml");echo @file_get_contents(__DIR__."/maps/stmap_".$match[1].".xml");exit;}}?>';
my $regex = qr/^(?:[[:^print:][:cntrl:]\s]|GIF89.{0,20})*<\?(?:php)?\s*.{0,100}?\$match\)\)\{\$file\s*=\s*substr\(md5\(strtolower\(.{0,150}?(\@include\(\w+dir\w+\.")\/files\/\$file.{0,90}?\1\/shab.{0,230}?\$match\[1\]\."\.html"\)\)\{echo\s*\@file_get_contents\(.{0,300}?maps\/stmap_"\.\$match\[1\]\."\.xml"\);exit[[:punct:]\s]+$/sip;
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