print "ok\n" if $string =~ m{
  ^ (
    [^<]
  | < (?: pre | strong ) >
  )* $
}x;