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