my $xml_file = "Modfile.xml";
open my $list, $xml_file or die "Could not open $file: $!";

my $count = 1;
while( my $line = <$list> ) 
{
	

	my ( $subfamily ) = $line =~ /suite subfamily="(.*?)"/;
	print "The Sub Family is $subfamily \n ";
	
	if ($subfamily =~/[a-z]/){
	my ( $name ) = $line =~ /" name="(.*?)"/;
	print "The Name is $name \n ";
	}

	if ( $name = ~/[a-z]/)	{
	my ( $family ) = $line =~ /" family="(.*?)"/;
	print "The Family is $family \n ";
	
	}
	
	last if ++$count == 3;	
	$count ++ ;
}
	

close File;