# give stdin a:b or hello:world or etc:etc
while (<STDIN>){
($a,$b) = split(/:/,$_,2);
print "$a$b\n";
}

##</code><code>##

(split(/:/)[0..1]?  (split(/:/)[0,1]?