my @nums = $split[1] =~ /^(\d{10})(\d{10})(\d{10})$/;

##</code><code>##

my @nums = unpack 'a10 a10 a10', $split[1];