my @email=($to=~/<([^>]+)>/gs);