$email =~ s!(\.)!<wbr />$1!g;