#!/usr/bin/env perl
use warnings; #sed replacement for -w perl parameter
# Copyright Chao Weng 

# normalizations for hkust trascript
# see the docs/trans-guidelines.pdf for details

while (<STDIN>) {
  @A = split(" ", $_);
  print "$A[0] ";
  for ($n = 1; $n < @A; $n++) { 
    $tmp = $A[$n];
    if ($tmp =~ /<sil>/) {$tmp =~ s:<sil>::g;}
    if ($tmp =~ /<%>/) {$tmp =~ s:<%>::g;}
    if ($tmp =~ /<->/) {$tmp =~ s:<->::g;}
    if ($tmp =~ /<\$>/) {$tmp =~ s:<\$>::g;}
    if ($tmp =~ /<#>/) {$tmp =~ s:<#>::g;}
    if ($tmp =~ /<_>/) {$tmp =~ s:<_>::g;}
    if ($tmp =~ /<space>/) {$tmp =~ s:<space>::g;}
    if ($tmp =~ /`/) {$tmp =~ s:`::g;}
    if ($tmp =~ /&/) {$tmp =~ s:&::g;}
    if ($tmp =~ /,/) {$tmp =~ s:,::g;}
    if ($tmp =~ /[a-zA-Z]/) {$tmp=uc($tmp);} 
    if ($tmp =~ /Ａ/) {$tmp =~ s:Ａ:A:g;}
    if ($tmp =~ /ａ/) {$tmp =~ s:ａ:A:g;}
    if ($tmp =~ /ｂ/) {$tmp =~ s:ｂ:B:g;}
    if ($tmp =~ /ｃ/) {$tmp =~ s:ｃ:C:g;}
    if ($tmp =~ /ｋ/) {$tmp =~ s:ｋ:K:g;}
    if ($tmp =~ /ｔ/) {$tmp =~ s:ｔ:T:g;}
    if ($tmp =~ /，/) {$tmp =~ s:，::g;}
    if ($tmp =~ /丶/) {$tmp =~ s:丶::g;}
    if ($tmp =~ /。/) {$tmp =~ s:。::g;}
    if ($tmp =~ /、/) {$tmp =~ s:、::g;}
    if ($tmp =~ /？/) {$tmp =~ s:？::g;}
    print "$tmp "; 
  }
  print "\n"; 
}