my $var = '...';
print 'Good' if '...Ovid' =~ /\Q$var\E(?=Ovid)/;