Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
use strict;
...
my $LSN = $2;

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

Select or download this

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