$flintstones = "\n or modern stoneage";
if ($flintstones =~ m/(\w*) or \w* \1/){
    print "True\n";
}