perl while 循环

while (<STDIN>){  ###读取标准输入
if (/END/) {
last;
}
elsif (/fred/) {
print 1;
}
elsif (/red/) {
print 2;
}
}

while (<>){  ###读取文件输入
if (/END/) {
last;
}
elsif (/fred/) {
print 1;
}
elsif (/red/) {
print 2;
}
}