#!/usr/bin/perl
open(AeIoU,$0);
$\ = "";#Idiot!
while(<AeIoU>){
;;#enterTheMatr
$a[$_=split //,
$2]=$1 if/#([^!
|^\(])(.*)$/#Ha
;$\=""if 1#,awk
}print #'@!.,%#
$a[$_] for 0...
@a ; # Please!!
print;#my Perl!
close AeIoU;#Ha
$_="" if<D>#ide
;unless(1# perl
!= 1#Fabula Enc
)#reboot now!!!
#nadaPodeNosSep
{print pack("C*
",qw/97 110 100
111 10/);print}
|
#!/usr/bin/perl
while(<DATA>){s/\s|\n//g;
$/.=$_;}while($_=chop$/){
$,.=ord}$\=" "; while( $,
=~s/^(\d{2})(\d{2})//){if
($1!=33||$2!=33){$h.= chr
abs $1+$2} else{print $h;
$h=""}}$\="\n";print #FCO
__DATA__
!!4>1492?$%<'!!!664>14((!
!2@23C%J*)F#K@!!!.F-F/F%%
|
#!/usr/bin/perl
$c=#home:/home/
$0; #the obscur
open(AeIoU,$0);
$\ = "";# eioug
while(<AeIoU>){
;#enterTheMatri
$a[$_=split //,
$2]=$1 if/#([^!
|^\(])(.*)$/#Jg
#reboot thehost
}print #againfg
$a[$_] for 0...
@a ; #other num
print;#nothing.
close AeIoU;#JO
open(AeIoU,$c);
$_=<AeIoU>;#usp
chomp ($d=$1) #
if /([^\/]+)$/;
print " " . $d;
;;print foreach
pack("C*",qw/32
104 97 99 107
101 114/);#sfkd
print"\n"#tdfsk
|
open
(CRIST
,"<",$
0);for
(<DATA>){chomp;s/^\s*//; $manto.=$_};$manto=~s/\n|^\s+//sg;@
manto=split/[^|]/,$manto;push@crist,(chr scalar(split//) +
((chr 54).(chr 52)))for@manto;my$i;undef$
manto;;;;;while($crist=<CRIST>){;;;;;;
chomp;for(split
//,$crist){s/[^
\s]/$crist[ $ i
%@crist]/x;$i++
; $ manto.=$_}}
print$manto;;;;
;;;;;;;__DATA__
|||||||||||||||
||| |||||||||||
|||||||||||||||
||||||||||||||
| |||||||||||||
|||||||||||||||
|||||||||||||||
|||| ||||||||||||
|||| |||||||||||||
|