my $count = 0;
for my $c (0x00 .. 0xFF) {
    my $_ = chr $c;
    $count++ unless /./;
}
say $count;