my ($LSV, $LSN) = $BE_temp =~ m/^\|\s(\w+_\d+)\s+\|\s+(\w+)\s+\|$/m;
if ( $LSV =~ m/dsmgt_03_03/ ) {
    print "LSV Match\n";
} else {
    print "LSV Fail\n";
}

##</code><code>##

Use of uninitialized value $LSV in pattern match (m//) at C:\Users\civey\Documents\Perl\SDM401-LDAP_Config.pl line 405, <STDIN> line 2.
LSV Fail