use warnings;
use strict;

use YAPE::Regex::Explain;

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

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