#!perl -p\x0d $_=/[~-\xc3\xbf]/?"(bin)\x0d ":/^(\w|\d| )*$/i?"(alnum)\x0d ":/[a-z]|\d| /i?"normal\x0d ":"(sym)\x0d ";
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page