print "Please enter any noun: ";
$noun = <>; chomp $noun;
print "Please enter another noun: ";
$noun2 = <>; chomp $noun2;
print "Please enter any verb: ";
$verb = <>; chomp $verb;
print "\nDid you know that when you $verb a $noun, the $noun becomes a $noun2?\n";
