foreach (<>)	
{
	$line=$_;

	if ($line =~ m(^\s{2}[-0]))  #gets us to required lines in dataset
								
	{
			
		chomp $line;
		@items_in_line = split ' ', $line;
			
	}

print $items_in_line[o];
}