comment on

A few notes on your code:

In HTML, it's  , and not &nbsp; you are missing the semicolons
Your substitutions have unnecessary brackets. (\s{5}) will match the same as \s{5}. The difference is that the brackets will capture those spaces into $1, but you don't seem to need that here
On the right hand side of substitutions, you don't need to escape the ampersand character
On your subroutines (or code blocks, for that matter), try to indent things (not sure if you just missed that because of pasting the code here)

Hope you live a happier life because of this :-)

In reply to Re: Replace a word in a line except for the last char of the word? by cog
in thread Replace a word in a line except for the last char of the word? by Ronnie Doorzon

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.