$_ = "Next line (2.) contains a url. The url is perlmonks.org. Send them \$20.00.\n"; @sentences = split(/(?<=\.)\s+/); print "$_\n" for ( @sentences );