#!/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);