perl 851032-orig.pl
$& at line 9: <dsk1
 **********
1

$& at line 14: <dsk1 line1 id="123" lo="1" to="abc" rb="This is a long rb."
 ------------------
$& at line 9: <dsk1
 **********
2

$& at line 14: <dsk1 line2 id="456" lo="2" to="def" rb=Short rb"
 ------------------
$& at line 9: <dsk1
 **********
3

$& at line 14: <dsk1 line3 id="789" lo="3" to="ghi" rb="Medium long rb"
 ------------------
$& at line 9: <dsk1
 **********
Use of uninitialized value in concatenation (.) or string at 851032-orig.pl line 13, <DATA> line 4.


$& at line 14: <dsk1
 ------------------
$& at line 9: <dsk1
 **********
5

$& at line 14: <dsk2 line5 id="555" lo="5" to="jkl" rb="should not match"
 ------------------
$& at line 9: <dsk1
 **********
6

$& at line 14: <dsk1 Line6 id="987" lo="6" to="mno" rb="This should be a match"
 ------------------
$& at line 9: <dsk1
 **********
7

$& at line 14: <dsk1 line7 id="FFF" lo="7" to="pqr" rb="This is a very, very, very long are-bee."
 ------------------