#!/usr/bin/perl
do {
	$_ = <STDIN>;
	# Your code here.
} until $_ eq ".\n";
