unless (my @words = /(\b\D+?\b)/g) {
    print "Houston, we have a problem.\n";
}