#!perl -pl @%{@;}=0..map+s!.!y$IVCXL426(-:$XLMCDIVX$dfor$;[$_].=5x$&*8%29628!eg,!y/m/-/..3999;s/\w+/+$%{$&}/g;$_=$;[eval]