ajan has asked for the
wisdom of the Perl Monks concerning the following question:

Dear Monks,

Im trying to make some regex mainly changing spaces between special words to be smaller spaces (needed for nice pdf printout).

Because there are many cases to match and I have do do it on large textfiles for each paragraph (depending on the individual style there are different sets of replacement) i'm just playing with regex::assemble.

First pass of while loop: "SGB\x{0020}I" gets replaced with "SGB\x{2009}I"Second pass of while loop: "SGB\x{2009}I" gets replaced with "SGB\x{2009}I"Third pass of while loop: "SGB\x{2009}I" gets replaced with "SGB\x{2009}I"...

When putting a smiley right before a closing parenthesis, do you:

Use two parentheses: (Like this: :) )
Use one parenthesis: (Like this: :)
Reverse direction of the smiley: (Like this: (: )
Use angle/square brackets instead of parentheses
Use C-style commenting to set the smiley off from the closing parenthesis
Make the smiley a dunce: (:>
I disapprove of emoticons
Other