open (PROLOG,"$provision_log") || die "Cannot open the file: $!";
					while (<PROLOG>) {
					chomp;				
					$pro_logline=$_;
					print "$pro_logline\n";
						if ($pro_logline =~ /$transaction_id/) {
						print "We found a match\nPro_log:$pro_logline\nAuditlog $logline\n";
					$jhg=<STDIN>;
				} # End of if prolog
				}  # End of while for Prolog run
				close (PROLOG);