$T = qr//;
$U = qr//;
$_ = "12";
/(1)(2)/;
my ($t, $u) = ($1, $2);
print $t =~ /$T/ ? "pass1, " : "fail1, ";
print $u =~ /$U/ ? "pass2\n" : "fail2\n";