PITCH_SEQ_TX <- c('SSS.C','FFBB1','BBSSC','B.BSS2','CBSFFFS')
gsub("[[:punct:][:digit:]]+", "", PITCH_SEQ_TX)
gsub("[^[:alpha:]]+", "", PITCH_SEQ_TX)
UElUQ0hfU0VRX1RYIDwtIGMoJ1NTUy5DJywnRkZCQjEnLCdCQlNTQycsJ0IuQlNTMicsJ0NCU0ZGRlMnKQpnc3ViKCJbWzpwdW5jdDpdWzpkaWdpdDpdXSsiLCAiIiwgUElUQ0hfU0VRX1RYKQpnc3ViKCJbXls6YWxwaGE6XV0rIiwgIiIsIFBJVENIX1NFUV9UWCk=