#!/usr/bin/perl
use strict;
use warnings;
# 851032

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

while(<DATA>) {
	my $line=$_;
	if( $line =~ /^<dsk1/ ) {
		print "\$line: $line";
		if ($line =~ /.*\sid=\"(.*)\"\slo=\"(.*)\"\sto=\"(.*)\"\srb=.*$/) {
			print "\$1: $1, \$2: $2\, \$3: $3 \n";
			print "-----------------\n";
		} else {
			print "Some of this will be uninitialized: ";
			print "\$1: $1, \$2: $2\, \$3: $3 \n";
			# print "\$&: $& \n\n---\n";
		}
	} else {
		print "\$line did NOT start with '^dsk1': $line \n =================\n\n";
	}
}

=head
Output:  (see also 851032-orig.pl)

perl 851032.pl
$line: <dsk1 line1 id="123" lo="1" to="abc" rb="This is a long rb."
$1: 123, $2: 1, $3: abc
-----------------
$line: <dsk1 line2 id="456" lo="2" to="def" rb=Short rb"
$1: 456, $2: 2, $3: def
-----------------
$line: <dsk1 line3 id="789" lo="3" to="ghi" rb="Medium long rb"
$1: 789, $2: 3, $3: ghi
-----------------
$line did NOT start with '^dsk1': <dsk2 line4

 =================

$line did NOT start with '^dsk1': <dsk2 line5 id="555" lo="5" to="jkl" rb="should not match"

 =================

$line: <dsk1 Line6 id="987" lo="6" to="mno" rb="This should be a match"
$1: 987, $2: 6, $3: mno
-----------------
$line: <dsk1 line7 id="FFF" lo="7" to="pqr" rb="This is a very, very, very long are-bee."
$1: FFF, $2: 7, $3: pqr
-----------------

=cut

__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."