open (UNI,"<lipoP63.swiss") or die ("Could not open UNI");

while (<UNI>)
{
	if ($_=~/^ID {3}(\S+) /)
	{
		#print "$1\t";
		push (@ids, $1);
	}
	if ($_=~/^FT {3}SIGNAL +\d +(\d{2})/)
	{
		#print "$1\n";#print $_;
		push (@sig, $1);
	}
	if ($_=~/^ {5}(.*)\n/)
	{
		$seq.=$1;
		$seq=~s/ //g;
	}
	if ($_=~/^\/\//)
	{
		push (@seq, $seq);
		if ($seq=~/(\S*LA[AG])C/)
		{
			#print "$1\n";
			push(@psig,length($1));
		}
		else {push(@psig,'no');}
				
		$seq='';
	}

}

for ($i=0; $i<=$#ids; $i++)
{
	print "$ids[$i] $sig[$i] $psig[$i]\n";
}