$test = 2872989898322;

#Packen
print "Vorher: $test\n";
while($test > 4294967295)
{
    $test = $test - 4294967295;
    push(@new,pack("L",4294967295));
}
push(@new,pack("L",$test));
print "Gepackt: @new\n";


#Entpacken
$new = unpack("L$#new", @new);
print "Nachher: $new\n";