<div>
<pre><code id="code-20-35754422-1">$subject = &quot;200 result=12345&quot;;
if ($subject =~ m/=(\d{1,5})/m) {
	$result = $&amp;;
} else {
	$result = &quot;&quot;;
}
print $result;</code></pre>
</div>


$subject = "200 result=12345";
if ($subject =~ m/=(\d{1,5})/m) {
	$result = $&;
} else {
	$result = "";
}
print $result;

<div>
the string result may be of unknown length (it's just 5 in this example)
</div>


the string result may be of unknown length (it's just 5 in this example)

<div>
Even simpler...<br />
<br />
$string = &quot;200 result=12345\n&quot;; &nbsp;# below works with or without the newline in the string<br />
$string =~ m{=(.*)$};<br />
$result = $1;
</div>


Even simpler...

$string = "200 result=12345\n";  # below works with or without the newline in the string
$string =~ m{=(.*)$};
$result = $1;

<div>
<div class="content wysiwyg-content">
I have a string with the value:<br />
<br />
200 result=12345<br />
<br />
There is sometimes a newline character after the 5, sometimes not.<br />
<br />
Using Perl how can I extract 12345 into a new variable?
</div>
</div>


I have a string with the value:

200 result=12345

There is sometimes a newline character after the 5, sometimes not.

Using Perl how can I extract 12345 into a new variable?

Perl string parsing

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.