#!/usr/bin/perl -w
use strict;

$/ = '>';
while(<>){
	next unless (/\w/);
	my @lines = split(/\n/, $_);
	my ($ID) = $lines[0] =~ /^(\S+)/;
	shift(@lines);
	my $Seq = join('', @lines);
	$Seq =~ s/\W+//g;
	my $len = length($Seq);
	print "$ID\t$len\n";
}