BOND
+JAMES
------
AGENT


##</code><code>##

#!/usr/bin/perl
print "==============================\n====Pre-Calc Puzzle Solver====\n==============================\n\n","Number of words to be operated on: ";
chomp($words = <STDIN>);
while ($_ != $words) {
	print "What is word #", $_ + 1, "? ";
	chomp($word[$_] = <STDIN>);
	$word[$_] = uc($word[$_]);
	$_++;
}
print "What is the operator?\nOperator: ";
chomp($op = <STDIN>);
$op = substr($op,0,1);
unless ($op =~ /\+|\-|\*|\//) {
	die "That's not an operator I want to deal with!";
}
print "What is the result?\nResult: ";
chomp($result = <STDIN>);
$result = uc($result);