Get rid of the "?". And I don't think you need grep. This seems more typical:

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