#! /usr/local/bin/perl -w

use strict;

my $final_string = '';

while (<>) {
    chomp;

    if (m/([mM]{0,1})
          ([dD]{0,1})
          ([cC]{0,1})
          ([lL]{0,1})
          ([xX]{0,1})
          ([vV]{0,1})
          ([iI]{0,1})\b/x) {

	if (length($1) == 0) {
		$final_string = "\.";
	} else {
		$final_string = $1;
	}
	if (length($2) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $2;
	}
	if (length($3) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $3;
	}
	if (length($4) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $4;
	}
	if (length($5) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $5;
	}
	if (length($6) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $6;
	}
	if (length($7) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $7;
	}

        print "$final_string\n";
        $final_string = '';

    } 
}