Select Code to Download

while (<>) {
      if ($_ eq /yes/ or /y.*/) {
...
          exit;
      }
  }

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

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