These days we would do it in Perl:
#!/usr/bin/perl while (<>) { s/_\cH//g; print; }
Or, more idiomatically:
#!/usr/bin/perl -p s/_\cH//g;