$count = 0;
while (<FILE>)
{
	if ($_ =~ /^\#/) {
		$count ++;
		$temp{$count} = "";
	}
	else{
		chomp ();
		$temp{$count} .=  " ".$_;
	}
}
for $i (0 .. $count) {
print $temp{$i} ."\n";
}