$name = qr{($title)?\W+($first)?\W+($middle)?\W+($last)};