my @chunks = split /:/, $input_string; my $answer = join(':', $chunks[0], $chunks[1], $chunks[2]);