#!/usr/bin/perl -w
use strict;
while (<>) {
      m/^(\w+)(?:\s+(\w+))?$/ or die "$_ ?";
      print "$1 : ".(join " ", split //, ($2 // ''))."\n" or die $!;
}