#!/usr/bin/perl
use warnings;
use strict;

my $str = <<TICKSTR;
Pinging 127.0.0.1 with 32 bytes of data:
Reply from 127.0.0.1: bytes=32 time<1ms TTL=64
Reply from 127.0.0.1: bytes=32 time<1ms TTL=64
Reply from 127.0.0.1: bytes=32 time<1ms TTL=64
Reply from 127.0.0.1: bytes=32 time<1ms TTL=64

Ping statistics for 127.0.0.1:
    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 0ms, Maximum = 0ms, Average = 0ms
TICKSTR

for my $line (split /\n/, $str) {
    next if $line !~ /^Reply/;

    my @parts = split / /, $line;

    print "$_\n" for @parts[4, 5];
}

##</code><code>##

time<1ms
TTL=64
time<1ms
TTL=64
time<1ms
TTL=64
time<1ms
TTL=64