# 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{<binddn>cn=abcde</binddn>  # buttondown
                     $NL                        # newline
                     $SPACE{6}                  # 6 spaces
                     <bindpass>                 # something
                     .*                         # anything
                     </bindpass>                # end something
                    }xms;
my $replace_text = "<binddn>cn=abcde</binddn>$RETURN$TAB<bindpass>welcome1</bindpass>";

$line =~ s{$search_text} {$replace_text};