Help for this page

Select Code to Download

Select or download this

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

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

Select or download this
```
Send it to bob.sled@gmail.com.
```