perl poenok

push @x,ord()-32 for split'','Z=!;g&7?<:*5gI5:>oO&:;- c';split'','phroggy'x4;print chr^shift @_ for @x,109

#!/usr/bin/perl
$_=')(hBCdzVnS})3..0}_$;//::niam/s~=)]3[))_$(rellac(=_$({pam(esrever })e$.)4/3*
)e$(htgnel+23(rhc,"u"(kcapnu ,""nioj ;|_- |/+9-0z-aZ-A|rt~=e$;_$=e${pam tnirp{y
V2ajFGabus} yV2ajFGa&{gwmclBHIbus}gwmclBHI&{yVGa09mbbus}yVGa09mb&{hBCdzVnSbus';
s/n//g;s/bus/nbus/g;eval scalar reverse ; #

ha netan a blog motorja szetnyomna a jeleket (ez valoszinu), akkor letoltheto: perl poen 1, perl poen2

aki netan reszletes magyarazattal szolgal a programok valamelyikenek mukodeserol vendegem egy sorre.