くだすれPerl（超初心者用）3

[0223 nobodyさん 2009/08/21(金) 21:34:13 ID:???]

for($i=4; $i>0; $i--) {
print "$i\n";
$i =~ /(.)/;
}