and print ucfirst join$/,/.(.)/g;