#!perl use strict; use warnings; my $trace; my $ipaddy = "8.8.8.8"; #example do { $trace = qx{tracert $ipaddy}; until ($trace =~ /myhost/) }