next time: 2093

```

# easter
# egg to monks
use LWP::UserAgent;
\$ss1='0720971121121'.
'210320690971151161011'.
'1403211611103212111111' .
'703209710810803301004'.'6'.
'046'; \$ss2 ='0971101000321' .
'040971121121210320981051' . '1'.
'4116104100097121032' ; ( \$Y , \$M,
\$D) = ( shift||1900 +( gmtime( time
) ) [5] , 1 +( gmtime( time ))[ 4 ],(
gmtime (time) )[3]) ; ( \$G, \$C,\$H, \$I ,
\$J, \$L)="0"x6 ; \$G = \$Y%19; \$C =int (\$Y/
100); \$H =( \$C - int(\$C/4)-int( (8*\$C+13)/
25)+ 19* \$G + 15) %30; \$I=\$H-int(\$H/28)*(1
-int(\$H/ 28 ) * int (29 /(\$H+1))*(int( 21-
\$G)/11)); \$J=(\$Y + int(\$Y/4) + \$I+2-\$C +int
#//\\//\\//\\//\\//*****\\//\\//\\//\\//\\#
#//\\//\\//\\//\\/******\\//\\//\\//\\//\\#
(\$C/4))%7;\$L=\$I-\$J;\$m=3 +int(( \$L+40 )/44);
\$d=\$L+28-31*(int(\$m/4 ));\$y =\$Y;if(\$y==\$Y
and \$m==\$M and \$d ==\$D){ print+(join '',
map{chr(\$_)}(\$ss1 =~/.../g)),( \$m == 4
and \$d == 12 ? + ( join '', map { chr
(\$_ ) }( \$ss2 =~ /.../g ) ): 'by ')
,LWP::UserAgent->new->get('htt'.
'p://www.perlmonks.org/index'.
'.pl?no'.'de_id=174111')->
title(),\$/}

PS code inspired (read: stolen) by this

PPS no spoiler replies please ;)

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re: my personal Easter Egg
by Tanktalus (Canon) on Apr 13, 2020 at 14:36 UTC

You know how much of a pain in the arse this was to get running on the WRONG day? :P

Pain? I was able to even keep the formatting.
map{substr\$_->[0],\$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]