if ('p' eq substr $strTest, 4, 1) {