Select Code to Download

use strict;
use warnings;
...
my ($number) = $string =~ /(\d+)$/;

print $number;

382411

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