#!/usr/bin/perl

use warnings;
use strict;

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

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

print "$var\n";