perl -p -i.bak -e 's/(CUSIP|CUSIQ|something else)Y/${1}H'