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