#!/usr/bin/jperl

while(<STDIN>) {
  $_ =~ s/.\cH\cH//g;
  $_ =~ s/.\cH//g;
  print;
}
