my $thing = '12340019';
my @splat = $thing =~ m/\d{4}/g;

##</code><code>##

my $num = '0019';
$num = int $num;