#! perl -slw
use strict;

for my $re ( 
    qw[ .* 
        \d      \D     [^\d]  [^\D] 
        \w      \W     [^\w]  [^\W] 
        [\d\w] [^\d\w] [\D\W] [^\D\W] 
    ] 
) {
    printf "%8s:'%s'\n\n", $re, join '', 
        map{ /$re/ ? $_ : ' ' } map{ chr } 32 .. 126;
};;