while(/hops(.+)Trace/mg){
          print $1, "\n" if /($RE{net}{IPv4})/;
      open FILE, ">Google_1" or die $!;
      print FILE "Important Information \n $1";
      close FILE;
}

##</code><code>##

open FILE, ">>Google_1" or die $!