#!/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";
# prints 198968

my $str2 = http://172.20.37.115:8080/se/1.0/provision/subscribers/foo";
$str2 =~ /.*\/(\d+)$/;
my $var2 = $1 || '';

print "$var2\n";
#prints 198968


##</code><code>##

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";
}