open (PIR,'/home/sampir.txt');
while (<PIR>)
{
	if (/^ENTRY/)	{$entry = $_;}
	elsif(/^TITLE/)	{$title = (s/                   /\n\t\t /g,$_);}
	elsif(/^ORGANISM/){$org = (s/                   /\n\t\t /g,$_);}
	elsif(/^ACCESSIONS/){$acc = $_;}
	else
	{	
		@arr = $_;
	}
	if (defined $array2[0])
	{
		@array = split('',$arr[0]);
	}
	
}
print @array;