printf $outFile "Success,";
   print "In Success,\n";

   my $ErrorMsg = "null";

   while ($line = <DATA>) {
       if ($line =~ /$match/) {
           print "$2\n";
           printf $outFile "$2, ${1}, $ErrorMsg\n";
           return;
       }
   }