$s =~ s/.*\+(\d+)\s.*/$1/;

##</code><code>##

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