use strict;
use warnings;

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

while(<FH>)
{
        if(~/^<dsk1/)
        {
                my $line=$_;
#                       print $line;
                $line=~/.*\sid=\"(.*)\"\slo=\"(.*)\"\sto=\"(.*)\"\srb=.*$/;
                print "$2\n\n";
                print "$&\n";

        }

}