(@entry[0..8]) = split(/:/,$_);
$newentry = join(":", @entry[0..8]);

##</code><code>##

@entry = split /:/; # Automagically uses $_.
$newentry = join (":", @entry[0..8]);