#!/usr/bin/env perl

use strict;
use warnings;
use URI::URL;
use feature qw(say);

my $url = URI::URL->new(
    q(http://172.20.37.115:8080/se/1.0/provision/subscribers/198968));

# say( map { ( split /\// )[-1] } $url->path );

my ($var) = map { ( split /\// )[-1] } $url->path;

say $var;

__END__

karls-mac-mini:monks karl$ ./1131943.pl
198968