system("simple_pin_$thost.pl $thost  | findstr \n "2016 TTL timed"  >> ping_$thost.txt" );

##</code><code>##

system("simple_pin_$thost.pl $thost  | findstr \n \"2016 TTL timed\"  >> ping_$thost.txt" );
system(qq{simple_pin_$thost.pl $thost  | findstr \n "2016 TTL timed"  >> ping_$thost.txt});