Stastne a vesele Vianoce!

sub x{sub a{rand}sub f{chr(shift())}sub h{print(shift)}$b=f(13);$c=f(32);sub d{a>.1?17:a>.6?86:99}
for(0..24){h($b.${c}x(24-$_));h(f(d()+25))for 1..2*$_+1}sub g{$f=shift()?'_':$c;h($b.${c}x(22)."$f|$c|$f");}g($_)for(0..1)}