if-statement: Perl grab content between two delimiters without including the delimiters

jeudi 25 août 2016

I have the following string:

A. -rw-r-----, -r-------B. -rw-r--r--, -r--r--r-C. -rw-r--r--, -r-------D. -rw-r--rw-, -r-----r-E. -rw-------, -r-------Answer: C

The intended output is:

-rw-r-----, -r-------
-rw-r--r--, -r--r--r-
-rw-r--r--, -r-------
-rw-r--rw-, -r-----r-
-rw-------, -r-------

I'm using ( for each letter A,B,C,D,E ):

perl -ne'print if /A[.] (.*)/s' test.txt > test2.txt

Instead of printing the whole line, how would I end the output at the last hyphen (-) before "B." respectively for all the letters [A,B,C,D]?

if-statement