my $d = qr{[0-9]};
my $w = qr{[A-Za-z0-9_]};