print $t =~ /(?:$T)/ ? "pass1, " : "fail1, ";