my $found = 0;
for (qx<tracert $ipaddy>){
  next unless /myhost/;
  found = 1;
  last;
}

##</code><code>##

  if (grep {/myhost/}, qx<tracert $ipaddy>){
      #Do something 
  }else{
      #Addr was not found in trace
  }