Tenho o seguinte código Perl para solicitar ao usuário uma resposta sim / não. Se o usuário digitar algo diferente de sim / não, continue solicitando. Nenhuma outra palavra é aceitável. Eu não sei porque esse código não funciona. Eu testei com a resposta "noooooo" e eu estava esperando que ele solicite novamente, mas não entra no loop while.

Alguém pode ajudar a encontrar meu erro aqui?

@files = A, B, C;

foreach $c (@files) {
  if (-e $c  ) { 
     print " $c already exists. Do you want to overwrite?  (yes or no): ";
     chomp ($file_yes_no = <STDIN>);

     while ($file_yes_no !~ m/yes{1}|no{1}/i )  {
         print "$c already exists. Do you want to overwrite?  (yes or no): ";
         chomp ($file_yes_no = <STDIN>);
     }

     if ($file_yes_no =~ m/yes/i ) {
         if (system ("cp -f /home/old_path/ /home/new_path/ == 0) {
             print "$c successfully copied;
         } else {
             die "Error: Copy failed, Check the message above";
         }
     }
 else { print "No files copied\n; }