my $line1_re = qr! ^ Traceroute: \s+ .* \s+ (\S+) $ !x;
my $line2_re = qr! ^ Tracing route !x;
my $destn_re = qr! ^ \s*\d+(\s+\d+\sms \s+){3} (?:(?: \d{1,3} \. ){3} \d{1,3}|(/*/) )!x;