use warnings;
use strict;

my $str = "http://172.20.37.115:8080/se/1.0/provision/subscribers/198968";

if( $str =~ /.*\/(\d+)$/ ) {
  my $var = $1 || '';

  print "$var\n";
}