Select Code to Download

s{}{${\(<<'.')}};s.^ +..mg.y.\t..d;
there are three virtues
...
6.30.1.584.2.0.1.48.2.253.2.95.4.0
;_:@_&&do{$%=$_[--$#_];$.=$_[--$#_
];print$`[$.++]for 1..$%;goto _};

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc