Select Code to Download

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

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

 1:38 >