s//#Just#Another#Perl#Hacker#/;
s/\b\W/$1 /g;
print;

##</code><code>##

s//J-J-J-J>Just Another Perl Hacker/;
s/\b\w\b//g;
print;

##</code><code>##

# using boundaries

s//#foo foo foobar foo#/;
s/\bfoo\b//g;
print;

# using negative lookahead and lookbehind assertions

s//#foo foo foobar foo#/;
s/(?<!\w)foo(?!\w)//g;
print;

# using positive lookahead and lookbehind assertions with char classes
s//#foo foo foobar foo#/;
s/(?<=[^\w])foo(?=[^\w])//g;
print;