#!/usr/bin/perl

my$raven='print:unpack("u"
,q|=5&AE(%)A=F5N      (&)Y
($5D9V%R($%L;&         5N(
%!O90H`|);prin          t:
pack("H*","5         1   7
56f74682074          686 5
2072617665           6e203
a0a");ope            n(LEN
ORE,"<$0             ")||d
ie$!;$b              ird=q
|never               more|
;@say               ing=sp
lit(               //,$bir
d);               <LENORE>
;<               LENORE>;f
o               r(<LENORE>
               ){s|\S|\x3a
   |g;s|\x    20|$saying[i
  nt$t++          %9]|ge;p
rint;}cl  o  s  e (LENORE)
;';$_=$raven;$_=~s/\s//gx;
$_=~s/\x3a/\x20/g;eval;;;;


##</code><code>##

#!/usr/bin/perl

open(RAVEN,"<raven.txt"); # ASCII Art
open(OBFU,"<obfu.pl"); #Store the obfu code here
<OBFU>;<OBFU>; #ignore 2 lines
$line=<OBFU>; #stff everything on 1 line please
@stuff=split(//,$line); #split it up
local $/=undef; 
$raven=<RAVEN>; #read ascii art
$raven =~s/#/$stuff[$i++]/mge; #use # as marker for text
open(OUT,">out.pl");
print OUT '#!/usr/bin/perl',"\n\n",$raven; #write it
close(OUT);