Re: Perl Regex

[Kenosis]

Here's an option:

use strict;
use warnings;

my $string = "/qwjhj/sdvbb/vuvs/tryt3687fbhvh/vv1vh/382411";
my ($number) = $string =~ /(\d+)$/;

print $number;

Output:

382411

Regex:

my ($number) = $string =~ /(\d+)$/;
                           ^ ^ ^^
                           | | ||
                           | | |+ - End of the string
                           | | + - End capture
                           | + - One or more digits
                           + - Begin capture