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