in reply to Re^2: split line from one pointin thread split line from one point
open my $IN, '<', 'transaction' or die "Cannot open 'transaction' for +reading: $!"; ... while (<$IN>) { ... } [download]
(And adapt the code for the second file accordingly).