#!/usr/bin/perl -l

sub censor{
    my ($s) = @_;
    $s =~ s/.(.|$)/*$1/g;
    return $s;
}

while(my $line=<>){
    chomp($line);


    $line =~ s/(.*?)(:|$)/censor($1)."$2"/eg;
    print $line;
}