>>726
while($line = <IN1>){
chomp $line;
if($line eq "animal"){
print OUT1 "n\n";
}else{
print OUT1 "m\n";
}
}
て感じです。
出力は、nが１つ出ているだけです。
しかも、データの１行目はfoodなのでmが出てほしいんですが。。