#!/usr/bin/perl
use strict;
use warnings;
# 851032-orig (but using data)

# open FH,"data" or die "can't open the file";

while(<DATA>) {
	if(~/^<dsk1/) {
		print "\$& at line 9: $& \n **********\n";    # added
		my $line=$_;								  # added
		$line=~/.*\sid=\"(.*)\"\slo=\"(.*)\"\sto=\"(.*)\"\srb=.*$/;
		print "$2\n\n";
		print "\$& at line 14: $&\n ------------------\n";
	}
}
__DATA__
<dsk1 line1 id="123" lo="1" to="abc" rb="This is a long rb."
<dsk1 line2 id="456" lo="2" to="def" rb=Short rb"
<dsk1 line3 id="789" lo="3" to="ghi" rb="Medium long rb"
<dsk2 line4 
<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 long are-bee."