$_ = 'foo...</code> ... ';

if (m{^(?: . (?! .*? foo ))* </code>}sx){
    print "Match\n";
}
# match