Thanks guys, that part now works thanks to all who supported me.
I've run into a similar problem now though in this code:
print "Select a letter to change to: ";
$lettertochangeto = <STDIN>;
if ($lettertochangeto =~ m/$workingcopy/i)#####PROBLEM LINE I THINK
{
print "That letter is already being used, try again.";
&manual;
}
else
{
eval "\$workingcopy =~ tr/$lettertochange/$lettertochangeto/";
#$workingcopy =~ tr/$lettertochange/$lettertochangeto/g;
print "$cryptogram\nchanged to\n\n$workingcopy\n";
&manual;
}
I assumed that this problem was the same as before so I tried the things you suggested
again, but they did not seem to work this time, so I have reverted it back to what I
assumed would have been sufficient, just so that any explanations you might have for
me will start at the basics.
Thanks in advance,
-Dave
