Select Code to Download

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

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