if(  $answer =~ /\Q$questions[$i]\E(.*?)\Q$questions[$j]\E/s  ) {
    print qq(The answer is $1\n);
}