Select Code to Download

use strict;
use warnings;
...
}

close $transFH or die qq{close: $!\n};

Found 154216722 in:
<BEGIN Transaction>
...
with more stuff
<END Transaction>
==================