while(<IN>)
{
	if(substr($_, 259, 1) eq "B")
	{
		print B $_;
	}
	else if (substr($_, 259, 1) eq "T")
	{
		print T $_;
	}
	else if ()
	{
		# and so on for at least 10 lines!...
	}
}