Help for this page
$s =~ s/.*\+(\d+)\s.*/$1/;
print $s if $s =~ /^.*GET\s\/company\/newsletter\.html\?id\+(\d+)\s.*$ +/;