Add library(stringr), add example 2012