if ($strTest =~ m/....p./i)