while gets\x0d a=$_.chomp\x0d if/^[[:alnum:] ]+$/=~a;puts"(alnum)"\x0d elsif/[^\x20-\x7f]/=~a\x0d puts"(bin)"\x0d elsif/^[\x20-\x7f]+$/=~a&&/[[:alnum:]]/!~a\x0d puts"(sym)"\x0d else puts"normal"\x0d end\x0d end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).