Another little quibble. I would not pass a search/replacement pattern as a string; rather, as a  Regexp object as created by the  qr// operator. The reason is that  qr// m// s/// all speak the same language. Consider:

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $sr ('k\s', 'k\\s', 'k\\\\s', qr{ k \\ s }xms, qr{k\\s}xms) {
   my $s = 'remove back\slash';
   printf qq{'$s' %s -> }, ref $sr ? $sr : qq{'$sr'};
   $s =~ s{$sr}{xx}xmsg;
   print qq{'$s'};
   }
"
'remove back\slash' 'k\s' -> 'remove back\slash'
'remove back\slash' 'k\s' -> 'remove back\slash'
'remove back\slash' 'k\\s' -> 'remove bacxxlash'
'remove back\slash' (?^msx: k \\ s ) -> 'remove bacxxlash'
'remove back\slash' (?^msx:k\\s) -> 'remove bacxxlash'
[download]

Another advantage of using  Regexp objects to talk about regex patterns is precision of control. "The fact that the input is a multi-line string is not an issue..." except when it is. And the best time to consider this issue is at the point at which the regex is created, and perhaps in the context of the string against which you are matching.

c:\@Work\Perl\monks>perl -wMstrict -le
"my $inputtext = qq{a multi line\nstring and\nanother line\nthing here
+\n};
 print qq{<<$inputtext>> \n};
 ;;
 my $newText = replaceText($inputtext, qr{ lin .*? ing }xms, 'xx-xx');
 print qq{<<$newText>>};
 ;;
 sub replaceText {
   my ($inputText, $regex, $replacement) = @_;
   $inputText =~ s/$regex/$replacement/g;
   return $inputText;
   }
"
<<a multi line
string and
another line
thing here
>>

<<a multi xx-xx and
another xx-xx here
>>
[download]

In this example, the multi-line match and replacement works as expected even though the  s///g substitution ultimately used has no  /s "dot matches all" modifier. No matter. The behavior of dot was determined and could be understood at the point of creation of the  Regexp object; the object could have been passed around endlessly and its behavior would not change. Of course, the same behavior could be achieved using a  'lin(?s:.)*?ing' string literal to define the pattern, but that just qives you a few more regex hoops to jump through. (And on a related note, Regex Best Practice dictates that all  qr// m// s/// operators should effectively have an  /xms tail IMHO.)

---

---

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.