#include #include #define sub int #define my char #define ord #define chr(x) (x) #define eof feof #if 0 sub isupper { $_[0] =~ /^[[:upper:]]/; } #endif sub main(){ my $p,$u; while(!eof(stdin)){ $p = ord(getc(stdin)); $u = ($p > ord('A')-1 && $p < ord('Z')+1); if($u){ $p+=32; printf(" "); } if($p<0){return 0;} printf("%c", $p); } } main();