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