#!perl -p
s/$/ is a leap year./;$_%400*(/00 /||$_%4)&&s/s/s not/