use strict;
my $str = 'www.google.com/mom=3&f
-H "Content-Type: google.com/cool?cool1=yes&cool2=no&cool3=no" \\\\
-H "Content-Type: google.com/cool?mom=3&f" \\\\
www.google.com/mom=3&fbom=cbom\'
"www.google.com/mom=3&f"
curl -X GET \\\\
-H "User-Agent: Dalvik/2.1.0 (Linux; U; Android 10; SM-A705FN Build/QP1A.190711.020) Test/4.6.4.459" \\\\
-H "Authorization: bearer XXX" \\\\
-H "x-storefront-id: 1" \\\\
-H "x-application-id: 5" \\\\
-H "Build: 4.6.4.459" \\\\
-H "Platform: Android" \\\\
-H "Gender: M" \\\\
-H "SearchSegment: 98" \\\\
-H "OSVersion: 10" \\\\
-H "DeviceId: b147ee89" \\\\
-H "pid: bdb5748e" \\\\
-H "sid: 5096fd6e" \\\\
-H "x-features: FEATURE1_ENABLED" \\\\
-H "Accept-Language: tr-TR" \\\\
-H "Content-Type: google.com/cool?cool1=yes&cool2=no&cool3=no" \\\\
google.com/cool?cool1=yes&cool2=no&cool3=no`
/^((?!hede).)*$/s
^(?:(?!:hede).)*$
';
my $regex = qr/[^'"\s.]+\.[^\s'"&]+&[^\s"']+(?!\S)/p;
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