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