Select Code to Download

(?(?<=\w)(?!\w)|(?=\w)) # \b equivalent

(?(?<=\w)(?=\w)|(?!\w)) # \B equivalent

# \b equivalent:
(?(?<=      \w)     # if there is a word character left
...
      (?=   \w)     #    then there must be a  word character right
  |   (?!   \w)     #    else there must be no word character right
)

(?(DEFINE)
    (?<greeklish>            [\p{Greek}\p{Inherited}]   )
...
        )
    )
)

     sub IsGreeklish {
         return <<'END';
...
     +utf8::IsInherited
     END
     }

# space boundary
(?(?<=      \S)     # if there is a nonspace character left
      (?!   \S)     #    then there must be no space character right
  |   (?=   \S)     #    else there must be a  space character right
)

#!/usr/bin/env perl

...
That's a major snafoo()zle
That's a major snafoo() there.
That's a major snafoo()

foo EDGE LEFT:  Put your foo in your pocket.
foo EDGE RIGHT: Put your foo in your pocket.
...
() EDGE RIGHT: That's a major snafoo() there.
foo UNEDGED:    That's a major snafoo()
() EDGE RIGHT: That's a major snafoo()