if ($code =~ /=~/ && $data =~ /<p>/) {
    print "Woe unto you!\n"
}