my $def="hashpatterns.txt";
my %dic=();
open(D, $def) || die "can't open definition file:$def\n";
while (<D>) {
    my ($oldp, $newp) = split  /#/; 
    $dic{$oldp}=$newp;
} close(D);
my $file="input.txt";
open(F, $file) || die "can't open definition file:$file\n";
open(W, '>out.txt') or  die "can't write to file:$!\n";
my $line=join "", <F>;


my $matchkey=join "|", keys %dic;
$matchkey=qr /$matchkey/;

$line =~ s%$matchkey%$dic{$matchkey}%g;
print  W $line;
close(F);

##</code><code>##

\s+user\s"[^"]+"\s+password\s"[^"]+"\s+hash2\s+access(\s+console){2}(\s+new-password-at-login)?(\s+member\s"(default|engineer|networktest)"){2}(\s+exit){0,2}#REPLACE1 

##</code><code>##

\s+user\s[^"]+"\s+password\s[^"]+"\s+hash2\s+access(\s+console){2}(\s+new-password-at-login)?(\s+member\s"(default|READ-ONLY)"){2}(\s+exit){0,2}#REPLACE2 

##</code><code>##

\s+user\s"[^"]+"\s+password\s"[^"]+"\s+hash2\s+access(\s+(console|snmp|li)){3}\s+console(\s+new-password-at-login)?(\s+member\s"(default|LI|li-prof1)"){2}(\s+exit){0,2}#REPLACE3

##</code><code>##

 user "testuser1"
                password "08Cl3V.leJKU/GskqArA0Yp4MFo" hash2
                access console
                console
                    new-password-at-login
                    member "default"
                    member "engineer"

##</code><code>##

 user "v-test"
                password "VCp0GjSBK/KiWW.PgkQp7swXVMZ" hash2
                access console
                console
                    new-password-at-login
                    member "default"
                    member "READ-ONLY"