80     local $oldString = "OLDSTRING";
 81     local $newString = "NEWSTRING";
 82     $logger->debug("oldString = (", $oldString, ")");
 83     $logger->debug("newString = (", $newString, ")");
 84     if ($oldString eq "OLDSTRING") {
 85         $logger->info("$oldString = $oldString");
 86     }
 87     else {
 88         $logger->info("No. $oldString != oldString");
 89     }
 90
 91     $oldString = $allChanges->[$k]->getOldString();
 92     $newString = $allChanges->[$k]->getNewString();
 93     $logger->debug("oldString = (", $oldString, ")");
 94     $logger->debug("newString = (", $newString, ")");
 95     print Dumper($oldString);
 96     sleep 1;
 97
 98     if ($oldString eq "Automated") {
 99         $logger->debug("old string = ", $oldString);
100         $logger->debug("new string = ", $newString);

##</code><code>##

INFO main:::79: Change 3 was to the Automated field of testCase HIREX-16863 on createdDate 2013-05-13 12:19:42 Old String = (To Be Automated) New String = Ready For Integration
DEBUG main:::82: oldString = (OLDSTRING)
DEBUG main:::83: newString = (NEWSTRING)
INFO main:::84: OLDSTRING = OLDSTRING
DEBUG main:::93: oldString = (To Be Automated)
DEBUG main:::94: newString = (Ready For Integration)
$VAR1 = 'To Be Automated';
Use of uninitialized value in pattern match (m//) at weeklyAutomationChanges.pl line 98.
Use of uninitialized value in pattern match (m//) at weeklyAutomationChanges.pl line 98.