最後に「r」入力したらもう一度ってのをやりたかったんですが
1度しか入力できません
何がいけないのでしょうか？簡単にやるのはどうしたらいいのでしょうか？

use strict;
my $key = 'r';
do{
#色々と
print "再実行はrを入力\n";
$key = getc;
}while($key eq 'r');