Rather than using captures and substituting with $1$2 I would probably use look-behind and look-ahead assertions so that I can substitute just my stop word with nothing.

use strict;
use warnings;

my @stopWords = qw{the on};
my $title =
   q{The% cat sat 4on5 the %tHe% hat %On};
print qq{Title   : $title\n};

foreach my $stopWord (@stopWords)
{
    print qq{Weeding : $stopWord\n};

    # Do substitution using extended regular
    # expression syntax to allow comments in
    # the pattern.
    #
    $title =~ s{(?x)   # Substitute ...
       (?:             # Alternation for look-behind
          (?<=\A)      # If preceded by string start
          |            # or
          (?<=[%0-9])  # percent or digit
       )               # Close alternation
       (?i:$stopWord)  # ... ignoring case, stop word ...
       (?=[%0-9]|\z)   # If followed by percent or
                       #   digit, or string end
       }{}g;           # ... with nothing globally

    print qq{Title   : $title\n};
}
[download]

The output is

Title   : The% cat sat 4on5 the %tHe% hat %On
Weeding : the
Title   : % cat sat 4on5 the %% hat %On
Weeding : on
Title   : % cat sat 45 the %% hat %
[download]

I hope this is of use.

Cheers,

JohnGG

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

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

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