Select Code to Download

use strict;
use warnings 'all';
...
    }
    print "$InputData : " . ($found?" ":" Not") . "Found\n";
}

AB1/1 :  Found
AB1/2 :  NotFound
...
AB2/6 :  NotFound
AB2/9 :  NotFound
AB2/13 :  NotFound