Select Code to Download

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

$ perl -le '
    my $w = qr{[A-Za-z0-9_]};
...
With \x{424}:
With \x{42}:
9