Help for this page
s//#Just#Another#Perl#Hacker#/; s/\b\W/$1 /g; print;
s//J-J-J-J>Just Another Perl Hacker/; s/\b\w\b//g; print;
# using boundaries ... s//#foo foo foobar foo#/; s/(?<=[^\w])foo(?=[^\w])//g; print;