my @splat = unpack '(A4)*', $thing;

##</code><code>##

  $num = int($string);
  $num = $string + 0;

##</code><code>##

  my @splat = map $_ + 0, unpack '(A4)*', $thing;