use strict ;
use warnings ;
use Data::Dumper ;

my $data = () ;
my $attrs = () ;

sub getData {
	my ( $fileName, $type ) = split /\t/, $_[1] ;
	push @{$data}, $type unless !defined $fileName ;
}

sub getAttrs {
	my @attrs = split /\t/, $_[1] ;
	shift @attrs ;
	push @{$attrs}, \@attrs unless !defined $attrs[0] ;
}

# Gather data
my $context = 0 ;
my $counter = -1 ;
while(<DATA>) {
	chomp ;
	if ( $_ =~ /ID\'s/ ) {
		$context = 1 ;
		$counter = -1 ;
		next ;
	}
	if ( $_ =~ /Attributes/ ) {
		$context = 2 ;
		$counter = -1 ;
		next ;
	}
	if ( $context == 1 && $counter == -1 ) {
		++$counter ;
		next ;
	} elsif ( $context == 1 && $counter > -1 ) {
		getData($counter, $_) ;
		++$counter ;
	}
	if ( $context == 2 && $counter == -1 ) {
		++$counter ;
		next ;
	} elsif ( $context == 2 && $counter > -1 ) {
		getAttrs($counter, $_) ;
		++$counter ;
	}
} ;
foreach ( @{$data } ) {
	print $_ . " " ;
}
print "\n" ;
foreach ( @{$attrs->[0] } ) {
	print $_ . " " ;
} 
print "\n" ;
__DATA__