$answer =~ /$questions[$i](.*)$questions[$j]/;
print qq(The answer is $1);