Select Code to Download

use warnings;
use strict;
...
my $re = 's/ ^\w*\K\n(?=\w*\n) | ^.*\..*\K\n(?=.*\.) //mx';

print YAPE::Regex::Explain->new($re)->explain;

The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------