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