Help for this page
if (my ($LSV, $LSN) = $BE_temp =~ m/^\|\s(\w+_\d+)\s+\|\s+(\w+)\s+\|$/ +m) { do_something_with($LSV); do_something_with($LSN); }