Change the substitute to:

     $date =~ s/$strBegin/$months{uc $strBegin}/e;

The function uc() will not be executed otherwise.