my $s = $imlre{$_}->[1];
  $input =~ s/<$s[^>]*>//g ;