chomp(@input=<>);\x0d foreach$i(@input){\x0d print"$i is ";\x0d if($i%400!=0&&($i%100==0 || $i%4!=0)){print "not ";}print "a leap year.\n";\x0d }\x0d
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page