Select Code to Download

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

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

#!/usr/bin/perl
use strict;
use warnings;
...
<dsk2 line5 id="555" lo="5" to="jkl" rb="should not match"
<dsk1 Line6 id="987" lo="6" to="mno" rb="This should be a match"
<dsk1 line7 id="FFF" lo="7" to="pqr" rb="This is a very, very, very lo
+ng are-bee."

#!/usr/bin/perl
use strict;
use warnings;
...
<dsk2 line5 id="555" lo="5" to="jkl" rb="should not match"
<dsk1 Line6 id="987" lo="6" to="mno" rb="This should be a match"
<dsk1 line7 id="FFF" lo="7" to="pqr" rb="This is a very, very, very lo
+ng are-bee."