use strict;
my $str = 'ERROR: duplicate key value violates unique constraint "ml2_vxlan_endpoints_pkey"
DETAIL: Key (ip_address)=(10.60.3.132%10200) already exists.
STATEMENT: INSERT INTO ml2_vxlan_endpoints (ip_address, udp_port, host) VALUES (\'10.60.3.132%10200\', 4789, NULL)
ERROR: duplicate key value violates unique constraint "ml2_vxlan_endpoints_pkey"
DETAIL: Key (ip_address)=(10.60.3.131%10200) already exists.
STATEMENT: INSERT INTO ml2_vxlan_endpoints (ip_address, udp_port, host) VALUES (\'10.60.3.131%10200\', 4789, NULL)
ERROR: insert or update on table "ml2_dvr_port_bindings" violates foreign key constraint "ml2_dvr_port_bindings_port_id_fkey"
DETAIL: Key (port_id)=(55ce4ed0-0d40-4e7b-8753-f9f642d03282) is not present in table "ports".
STATEMENT: INSERT INTO ml2_dvr_port_bindings (port_id, host, router_id, vif_type, vif_details, vnic_type, profile, status) VALUES (\'55ce4ed0-0d40-4e7b-8753-f9f642d03282\', \'d2c-76-8a-ac-63-e2\', \'014b66c0-ad4b-48d4-ad89-d57ed543d9d3\', \'unbound\', \'\', \'normal\', \'\', \'DOWN\')
ERROR: duplicate key value violates unique constraint "ml2_vxlan_endpoints_pkey"
DETAIL: Key (ip_address)=(10.60.3.132%10200) already exists.
';
my $regex = qr/^STATEMENT:\s*(?<statement>[^\n]*)(\nERROR:\s*(?<error>[^\n]*))(\nDETAIL:\s*(?<detail>[^\n]*))/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