#!/usr/bin/perl -w

while ($IN=<>) {
  if ($IN=~/=/) {
    $pos=index($IN,'=',0);
    $in=substr($IN,0,$pos); $in.=':';
    for ($j=0;$j<13-$pos;$j++) { $in.=' '; }
    $in.=substr($IN,$pos+1);
    $IN=$in;
  }
  print $IN;
}