sub chg {
        $_ [0] =~ $_ [1] && $1 ? "yes\n" : "no\n";
    }