#include <stdio.h>\x0d #include <ctype.h>\x0d #define sub int\x0d #define my char\x0d #define ord\x0d #define chr(x) (x)\x0d #define eof feof\x0d #if 0\x0d sub isupper {\x0d \x09$_[0] =~ /^[[:upper:]]/;\x0d }\x0d #endif\x0d sub main(){\x0d \x09my $p,$u;\x0d \x09while(!eof(stdin)){\x0d \x09\x09$p = ord(getc(stdin));\x0d \x09\x09$u = ($p > ord('A')-1 && $p < ord('Z')+1);\x0d \x09\x09if($u){\x0d \x09\x09\x09$p+=32;\x0d \x09\x09\x09printf(" ");\x0d \x09\x09}\x0d \x09\x09if($p<0){return 0;}\x0d \x09\x09printf("%c", $p);\x0d \x09}\x0d }\x0d main();
Note that non-ascii characters in the above source code will be escaped (such as \x9f).