Select Code to Download

open my $fh, '<', $File or die "can not open $File: $!";
while (<$fh>) {
...
}
close $fh;

if ( $_ =~ /([0-9]+\:[0-9]+\:[0-9]+) ([0-9]+) (\w+) (\w+) (\w+)/ ){

if (/(\d+:\d+:\d+) (\d+) (\w+) (\w+) (\w+)/ ){

use strict;
use warnings;
...
        print "Transaction with id $id is started but not yet stopped\
+n";
    }
}