perl ENDを着くんだ文字列が入るまで標準エラー出力に表示する

#キーボードの入力を、キーワードENDを含んだ文字列が入るまで、そのまま標準エラー出力に表示するスクリプト
while(1){
$string = <STDIN>;
    if($string =~ /END/){
        exit;
    }else{
        print STDERR $string;
    }
}

#実行結果
# abc
# abc
# def
# def
# ghi
# ghi
# END

初めてのPerl 第6版