#!/usr/bin/perl
for (;;) {
	$_ = <STDIN>;
	next if /^#/;
	# Your code here.
	last if $_ eq ".\n";
}
