while (<FHIN>)
{
    $line=$_;

##</code><code>##

while (<FHIN>)
{
	$line=$_;
	next if $line =~ s/^\s*$/;