perl -pi -e '$_=capitalise($_)' persons/*/name