perl -le "print `ping badhost` =~ /please check/i ? 'bad':'good'"