open my $ih, '<', $fin or die "cannot open $fin for reading, $!"; 
$ih =~ s/\n+/\n/g; 


##</code><code>##

$ih =~ s/\n+/\n/g or warn "No subst\n";