or download this
#!/usr/bin/perl
print "==============================\n====Pre-Calc Puzzle Solver====\
+n==============================\n\n","Number of words to be operated
+on: ";
chomp($words = <STDIN>);
...
chomp($result = <STDIN>);
$result = uc($result);