local $/ = "";
while (my $paragraph = <$fh>) {
	print Dumper($paragraph);
	foreach my $line (split /\n+/, $paragraph) {
		print Dumper($line);
		next if $line =~ /^[a-z]+:$/m;
		print "<$line>\n";
	}
}