$str =~ m TpatternTi;