while (<>) {


s/[,;.:\-\/\"\'\?\!\(\)\%\>\=]+\s[,;.:\-\/\"\'\?\!\(\)\%\>\=]+\s[PU|X]+//g;


s/(\-)+//g;



s/([\w噼殪蝙廊商屹\'.]+\s)([\w噼殪蝙廊商屹\'.+]+\s)([A-Z\d]+)/\2_\3/g;

s/(\t)+//g;

s/^[\w噼殪蝙廊商屹\'.]*_[^SAVB][A-Z]*//g;

s/([\w噼殪蝙廊商屹\'.]+)(_)([A-Z])([A-Z\d]*)/\1\2\3/g;



print;

}