eval perl{\ \''-lne/"(.*','.*)".(...)/x&&%{uc$2}&&print$1'\',\"doc,faq1\|\"}