Select Code to Download

use strict;
use warnings;
...
    $count++;  
    print "$count match\n" if ($s && $s =~ m![[:cntrl:]]+!);
}

1 match
2 match
...
6 match
7 match
8 match