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