-Samy Kamkar


Encodes perl code (from file: code) and outputs 'nothing':

	perl -ne 'for(split//){print"\t"x(ord()/50)." "x(ord()%50)."\n"}' code > new

re-golfed 10/26/04:
	perl -nle'print"\t"x(ord()/50).$"x(ord()%50)for/(.)/g' code > new


Decodes 'nothing' (from file: new) and evaluates it:
	perl -e 'open_;$f.=chr s/ //g+s/\t//g*50while<>;eval$f' new


Example:

bash# cat code 
print "yo\n";
bash# perl -ne 'for(split//){print"\t"x(ord()/50)." "x(ord()%50)."\n"}' code > new
bash# cat new
                            
                              
                     
                          
                                
                                
                                  
                                     
                           
                                                  
                          
                                  
                 
bash# perl -e 'open_;$f.=chr s/ //g+s/\t//g*50while<>;eval$f' new
yo
bash#