<div>
I'd do it like this:<br />

<pre><code id="code-20-39335058-1">my $str = &quot;&lt;td &gt;\n$file  [&lt;a href=&quot;special:read('$file')&quot;&gt;Open&lt;/a&gt;]\n&lt;/td&gt;&quot;;
unless ($long_string =~ s{$text_to_replace}{$str}ms) {
    # or $long_string =~ s{$str}{$text_to_replace_with}ms - I'm not clear which you want
    print &quot;no match found\n&quot;;
}</code></pre>
</div>


I'd do it like this:


my $str = "<td >\n$file  [<a href="special:read('$file')">Open</a>]\n</td>";
unless ($long_string =~ s{$text_to_replace}{$str}ms) {
    # or $long_string =~ s{$str}{$text_to_replace_with}ms - I'm not clear which you want
    print "no match found\n";
}

<div>
@wilcoxon, won't any . characters in the string be treated as wildcards without escaping? (and other characters such as [](){}*+? may affect the pattern too)
</div>


@wilcoxon, won't any . characters in the string be treated as wildcards without escaping? (and other characters such as [](){}*+? may affect the pattern too)

<div>
Probably. &nbsp;If so, it's simple to just stick \Q at the beginning of the regex (don't remember if \Q$str will work or if \Q needs to be inside $str at the beginning).
</div>


Probably.  If so, it's simple to just stick \Q at the beginning of the regex (don't remember if \Q$str will work or if \Q needs to be inside $str at the beginning).

<div>
\Q$str\E will quote metacharacters
</div>


<div>
<div class="content wysiwyg-content">
Hi,<br />
I would like to replace the following from a longer string.<br />
<br />

<pre><code id="code-10-28187771-1">&lt;td &gt;
/some/path/to/a/file/fileA.x  [&lt;a href=&quot;special:read('/some/path/to/a/file/fileA.x')&quot;&gt;Open&lt;/a&gt;]
&lt;/td&gt;</code></pre>
<br />
/some/path/to/a/file/fileA<wbr />.x is a dynamic file name and it is comes from $file in the code. Then rest is static.<br />
<br />
Can you please tell me how I should write the regexp?<br />
<br />
So, the pattern is like this:<br />
<br />
<br />

<pre><code id="code-10-28187771-2">&lt;td &gt;
$file  [&lt;a href=&quot;special:read('$file')&quot;&gt;Open&lt;/a&gt;]
&lt;/td&gt;</code></pre>
</div>
</div>


Hi,
I would like to replace the following from a longer string.

(CODE)

/some/path/to/a/file/fileA.x is a dynamic file name and it is comes from $file in the code. Then rest is static.

Can you please tell me how I should write the regexp?

So, the pattern is like this:


(CODE)

How to remove a string from a longer string in Perl?

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.