Select Code to Download

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

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