use strict;
use warnings;

my $str = '[][ab]c[]d';

for my $chr (split '', $str) {
    my $result = $chr eq '[' .. $chr eq ']';
    printf "%-2s %s\n", $chr, $result;
}