Select Code to Download

my $str = 'XXXX - AAAA - - XXXXXXX XX - XXXXX XX TNBBBBB ';

my $data = (
   'keyA' => 'AAAAA',
   'keyB' => 'BBBBB'
);

my $str = "XXXX - 12345 - - XXXXXXX XX - XXXXX XX TN67890";

use strict;
use warnings;
...
12345
6789
keyB6789keyA12345