while (<>) {
      if ($_ eq /yes/ or /y.*/) {
          print "\n$word1 $word2 $word3 $word4\n";
          exit;
      } else {
          exit;
      }
  }

##</code><code>##

my $ans = <STDIN>;
print "\n$word1 $word2 $word3 $word4\n" if ($ans =~ /^y/);

##</code><code>##

print "\n$word1 $word2 $word3 $word4\n" if (($ans = <STDIN>) =~ /^y/);