И как такое удается вместить в одну строку???!!!

[cristobal_junta]

Программка на C:

char *s="char *s=%c%s%c; main(){printf(s,34,s,34,10);}%c"; main(){printf(s,34,s,34,10);}

Программка на Perl:

printf($x, 39, $x='printf($x, 39, $x=%c%s%c, 39, 10);%c', 39, 10);