Select Code to Download

use strict;
use warnings;
...
        print "no match for $id\n";
    }
}

Extracted 1 from id_1_1
Extracted 2 from id_2
no match for banana
no match for id_1_2_