I had to do a very UGLY hack to make it work, Any suggestions on imporvment will be great

foreach $arrFileList(@arrFileList)
 {
   print "I am doing this file $arrFileList\n";
   open (FILE, "$sourceDir/$arrFileList") or die "could not open $sour
+ceDir/$arrFileList: $!\n";
   @Lines = <FILE>;
   close FILE;
   $origField = (split /\|/, $Lines[3])[-3];
   $commonField = (split /\|/, $Lines[13])[-1];
   $commonField = "NX2\\|01\\|" . $commonField;
   chomp $commonField;
   print "my commonField is this $commonField\n";

   $newFile = `grep -l $commonField $responseDir/*`;
   chomp $newFile;
   print "my newFile to change is $newFile\n";

   if ($newFile =~ "/")
    {
      system ("perl -pi -e 's/$replaceField/$origField/g' $newFile");
      print "Done doing perl s/$replaceField/$origField/g $newFile\n";
      system ("mv $newFile $responseDone");
      print "Done moving $newFile to $responseDone\n";
      system ("mv $sourceDir/$arrFileList $processed");
      print "Done moving $sourceDir/$arrFileList to $processed\n";
    }
 }
[download]