Select Code to Download

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;