Puoi usare due modi:

$email{0}.$email{1}.$email{2}

oppure come ti hanno detto: substr ($email, 0, 3)