#!/usr/bin/perl\x0d for($i=1;$i<=1000;$i++){\x0d @j = split(//,$i);\x0d $clap_is_true = 0;\x0d if (($j[0] == "3" ) || ($j[0] == "6") || ($j[0] == "9")){\x0d $clap_is_true = $clap_is_true + 1;\x0d }\x0d \x0d if (($j[1] == "3" ) || ($j[1] == "6") || ($j[1] == "9")){\x0d $clap_is_true = $clap_is_true + 1;\x0d }\x0d \x0d if (($j[2] == "3" ) || ($j[2] == "6") || ($j[2] == "9")){\x0d $clap_is_true = $clap_is_true + 1;\x0d }\x0d \x0d if(($clap_is_true) >0) {\x0d \x09\x09\x09for($k=0;$k<$clap_is_true;$k++) {\x0d \x09\x09\x09\x09print "Clap";\x0d }\x0d }\x0d else {\x0d \x09\x09\x09print $i;\x0d }\x0d print "\n";\x0d }\x0d exit 0;\x0d
Note that non-ascii characters in the above source code will be escaped (such as \x9f).