my $str = "Send it to bob.sled\@gmail.com. Don't send it to ski.guy\@yahoo.com.";

print "$1\n" if $str =~ /(( (?!\.\s). )+ \.\s)/x;

##</code><code>##

Send it to bob.sled@gmail.com.