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