Face <- c("cK0521d07.png","ck0101a02.png","ck0221c01.png","ck0121b01.png","ck0221g08.png","ck0321c22.png")
grep("[[:alnum:]]{6}c[[:digit:]]{2}\\.png", Face)
RmFjZSA8LSBjKCJjSzA1MjFkMDcucG5nIiwiY2swMTAxYTAyLnBuZyIsImNrMDIyMWMwMS5wbmciLCJjazAxMjFiMDEucG5nIiwiY2swMjIxZzA4LnBuZyIsImNrMDMyMWMyMi5wbmciKQpncmVwKCJbWzphbG51bTpdXXs2fWNbWzpkaWdpdDpdXXsyfVxcLnBuZyIsIEZhY2Up