use Data::Peek;

foreach my $b (qw{ i I s S l L j J n N v V q Q }) {
    foreach my $e ("", "!", "<", ">") {
        $e =~ m{[<>]} && $b =~ m/[cCnNvV]/ and next;
        $e =~ m{[!]}  && $b =~ m/[jJqQ]/   and next;
        my $f = "$b$e";
        print STDERR "$f\t";
        DHexDump pack $f => 0x1234567;
        }
    }