yugui 39B
for(0..$ARGV[0]){print"$_\n"if/^\d0*$/}
turugina 38B (自己申告ではなぜか40B)
$,="\n";print grep/^\d0*$/,0..$ARGV[0]
lunlumo 36B