I presume that your brackets cannot be nested? Because in your example strong, all the dollars are between brackets. (Note also that as is, we cannot deduce there are dollar signs in $line, as $10 and $s are two interpolated variables. But let's assume there's a lone q before the first double quote).
Assume that the above is true, and that all brackets are balanced, I'd write something like:
no warnings 'uninitialized';
$line =~ s/(<[^>]*>|\$[0-9])|\$/$1/g;
Alternatively, keep the warning, replace the replacement with $1 || ""
and use /e
to eval the replacement.
Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
Want more info? How to link
or How to display code and escape characters
are good places to start.