#!/usr/bin/perl
use warnings;
use strict;

my $BE_temp = '+--------------+-------------+
| version_name | schema_name |
+--------------+-------------+
| dsmgt_03_03  | dsmgt_03    |
+--------------+-------------+
';

$BE_temp =~ m/^\|\s(\w+_\d+)\s+\|\s+(\w+)\s+\|$/m;
my $LSV = $1;
my $LSN = $2;

print "[$LSV] [$LSN]\n";

##</code><code>##

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