Author: Travis Emmit 
 
$s="7072696e742724733d22272e24732e225c223b5c6e222e7061636b22482a222c24733b0a"; 
print'$s="'.$s."\";\n".pack"H*",$s; 

##</code><code>##

Author: Allan M. Due 
 
#!/usr/local/bin/perl -w 
use strict; 
$_ = q(s|(.*)|print "#!/usr/local/bin/perl -w\nuse strict;\n\$_ = 
q(",$1,");\n",$1,";\n"|e); 
s|(.*)|print "#!/usr/local/bin/perl -w\nuse strict;\n\$_ = 
q(",$1,");\n",$1,";\n"|e;