#!/usr/bin/perl # Taken from a college philosophy final # Q: Is this Question a question? # A: If this answer's an answer if ($answer eq $answer) { $question eq $question; }