# Up in the Constants section
#
Readonly my $NL = "\n";
Readonly my $RETURN = "\r";
Readonly my $SPACE = q{ };
Readonly my $TAB = "\t"
my $search_text = qr{cn=abcde # buttondown
$NL # newline
$SPACE{6} # 6 spaces
# something
.* # anything
# end something
}xms;
my $replace_text = "cn=abcde$RETURN$TABwelcome1";
$line =~ s{$search_text} {$replace_text};