Perlメモ ナベアツ ワンライナー その２

perl -e '@nabe=qw/0 aho! bow! ahooown!!/; map {$n=0; $n+=1 if(!($_%3)||/3/); $n+=2 if(!($_%5)); print $nabe[$n]?$nabe[$n]:$_,"\n"} (1..40)'

５の倍数のときに犬っぽくもなる