Help for this page
my $RefLine = "(a) This is first line. (b) This is second line; (c) Th
+is is different line 32. (d) Here is the last line.";
@lines = $RefLine =~ /(\([a-z]\).*?)(?=$|\([a-z]\))/g;
print ">>$_<<\n" foreach @lines;
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (488 votes). Check out past polls.