Did you want integers?

  my $thing = '12340019';
  my @splat = map {int $_} $thing =~ /(\d{4})/g
[download]