#!/usr/bin/perl -w
use Regexp::Common qw/net/; 
open my $in, '<', "Sample_01.txt" or die $!;
open FILE, ">", "filename.txt" or die $!;
while (my $line = <$in>){

			 if($line =~ /^Traceroute: .* (\S+)/) {
      			 $traceroute = $1;
			print FILE "Destination to |$traceroute|";
			my ($ip) = $line =~ /(?: \d+ \s \s+) ($RE{net}{IPv4}) /msx;
			if($traceroute eq $ip){

			print FILE "$ip|";
			print FILE "\n";
			}
			}
			else {

			}

			
}