use strict;
use warnings;
{ local $/ = undef;
print map { "$_.\n" }
grep { m/^Nullam[^.]+(?:augue|libero)$/i }
split/\.\s+/, <DATA>;
}
__DATA__
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla commodo
+ dignissim dui. Mauris egestas nunc non justo. Praesent consectetur p
+haretranulla. Mauris sed magna. Fusce sit amet lectus. Aliquam bibend
+um mi sollicitudin nulla. Pellentesque volutpat. Morbi ac nibh ut mau
+ris tempor molestie. Nullam sit amet mi at neque lacinia suscipit. Nu
+nc sem erat, porta fermentum, tempus sed, porttitor et, nibh. Nulla t
+urpis orci, egestas eget, lacinia id, tincidunt vel, ligula.Donec sit
+ amet libero. Pellentesque ac felis vel erat interdum elementum. Prae
+sent luctus tellus sit amet velit. Cras lacinia molestie nibh. Suspen
+disse cursus. Sed facilisis magna id nisl blandit
malesuada. Cras commodo. Nam gravida dolor eu purus. Sed et velit. Nul
+la rhoncus hendrerit lectus. Ut nisi. Namsuscipit eros accumsan quam.
+ Nam ornare. Morbi a ipsum non urna adipiscing tempus. Duis in dui a
+enim malesuada
tempus. Ut vehicula sollicitudin tellus. Cum sociis natoque penatibus
+et magnis dis parturient montes, nascetur ridiculus mus. Vivamus grav
+ida adipiscing purus. Phasellus varius nisi et mauris.Lorem ipsum dol
+or sit amet, con
sectetur adipiscing elit. Sed ullamcorper erat sit amet magna. Sed por
+ta nisi quis leo. Integer elementum elit vel libero. Fusce vulputate
+magna sed nisi imperdiet fringilla. Nullam quis augue. Suspendisse ma
+uris tortor, sol
licitudin non, posuere ut, bibendum id, enim. Aenean id purus. Donec p
+retium. Nam blandit nisi at elit. Fusce ac erat et quam porta eleifen
+d. Sed imperdiet bibendum nulla. Morbi varius sagittis justo. Phasell
+us hendrerit ullamcorper risus. Phasellus nisl ante, ullamcorper nec,
+ pellentesque quis, rutrum in, ligula. Cum sociis natoque penatibus e
+t magnis dis parturient montes, nascetur ridiculus mus.Nulla facilisi
+. Suspendisse commodo diam ut dui. Mauris neque est, consequat vitae,
+ vestibulum vel, sodales quis, mauris. Ut pharetra mauris sit amet me
+tus. Nulla hendrerit sapien eleifend massa. Aliquam lacinia tempus au
+gue. Nullam congue congue lectus. Suspendisse nulla lectus, rhoncus e
+u, dapibus et, tempus ut, sapien. Vestibulum ante ipsum primis in fau
+cibus orci luctus et ultrices posuere cubilia Curae; Cras libero. Cur
+abitur scelerisque metus quis tortor facilisis ornare. Aenean sodales
+ ante vitae eros. Suspendisse potenti. Integer auctor nisi a diam. Ma
+uris tristique laoreet leo. Integer eu to
rtor. Quisque lacinia mauris et elit.Cum sociis natoque penatibus et m
+agnis dis parturient montes, nascetur ridiculus mus. Nam luctus mauri
+s nec lorem. Suspendisse leo est, ornare quis, volutpat quis, imperdi
+et quis, diam. D
uis vestibulum. Vestibulum iaculis diam in mauris. Donec sollicitudin.
+ Proin justo turpis, vestibulum in, lacinia sit amet, ultrices sit am
+et, dolor. Sed placerat, leo non facilisis dictum, lectus ligula vulp
+utate purus, id
varius metus turpis sed tortor. Praesent eu erat ut justo imperdiet cu
+rsus. Donec et magna id diam pulvinar sodales. Sed eu libero sit amet
+ tortor mollis pretium. Nullam a orci. Proin ac massa.
Prints "Nullam quis augue."
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
