Hello littleperl,

choroba is correct, of course, but for the record, this regex works:

use strict;
use warnings;

my $message =<<END;
<abc name="rn" value="42">
<form method="post" action="login.lp" name="authform" id="authform">
        <input type="hidden" name="rn" value="-1383135969">
<xyz name="rn" value="43">
END

$message =~ /action\s*=\s*"login.*?".*?"rn"\s+value\s*=\s*"(.+?)"/s;
my $rn = $1;
print "rn = '$rn'\n" if $rn;
[download]

Output:

 1:34 >perl 1180_SoPW.pl
rn = '-1383135969'

 1:38 >
[download]

Notes:

• In the regex elements .*? and .+? the ? specifies a minimal match instead of the default maximal one
• the /s modifier is needed to allow . to match newlines

Hope that helps,