$d = chr(2413);
print $d =~ $_, "\n" for qr/\d/, qr/[0-9]/;