use strict;
my $str = 'Start: 2020-02-01T10:08:41-0500
HOST: detectgooglesp.com Loss% Snt Last Avg Best Wrst StDev
1.|-- 148.163.220.1 0.0% 15 6.3 9.1 2.9 32.7 7.8
2.|-- 148.163.219.28 0.0% 15 3.1 7.0 2.3 22.4 5.0
3.|-- 187.16.216.55 0.0% 15 5.5 6.6 2.9 16.6 3.3
4.|-- 74.125.243.12 0.0% 15 7.4 6.1 3.6 10.6 1.9
5.|-- 209.85.252.68 0.0% 15 18.2 16.7 3.6 14.1 3.0
6.|-- 66.249.94.109 0.0% 15 108.3 110.1 106.7 120.9 4.1
7.|-- 74.125.251.34 0.0% 15 120.9 122.9 120.2 130.5 3.0
8.|-- 216.239.40.141 0.0% 15 131.0 129.6 128.1 132.3 1.1
9.|-- 209.85.250.206 0.0% 15 141.0 145.7 141.0 162.7 5.8
10.|-- 209.85.253.209 0.0% 15 154.8 144.7 140.6 155.0 4.4
11.|-- 209.85.244.207 0.0% 15 141.9 152.6 141.9 229.7 22.7
12.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
13.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
14.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
15.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
16.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
17.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
18.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
19.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
20.|-- ??? 100.0 15 0.0 0.0 0.0 0.0 0.0
21.|-- 35.226.130.1 0.0% 15 144.5 143.1 141.1 151.6 2.6
';
my $regex = qr/( [0-9]{2,3}.[0-9]{1} .[0-9]{2,3}.[0-9]{1} )/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