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