my ($transaction_id) = $transaction_line =~ /:(\d+)$/;

##</code><code>##

while (my $pro_logline = <PROLOG>) {
 chomp $pro_logline;