Select Code to Download

use Modern::Perl;

open my $FILEA, '<', './FILEA.TXT' or die $!;
...
    }
}

A:102 matches B:102
A:264 matches C:264
A:403 matches D:403
...
A:1018 matches C:1018
A:1180 matches D:1180
...