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