Select Code to Download

use strict;
use warnings;
...
        print "No match for count = $count\n";
    }
}

Match at 0 for count = 1
Match at 29 for count = 2
Match at 50 for count = 3
No match for count = 4