Select Code to Download

1-23-abc45 (11:01)    ABC SET foo foo foo.
Foo data foo.
--
...
2-34-xyz21 (12:03)     ABC SET foo foo foo.
Foo data foo.
!

use strict;

my $value;
...
       }
}
close IN or warn "$!";