$_ = "this is the wristwatch";
    s/(t.*?t)/($1 ne "test") ? "" : $1/ge;
    print;
    __END__
    he wrisch