my $line = $t->getline( Timeout => 1 ); if($line =~/502/) { ...