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

$fn=$ARGV[0];
open(FD,"$fn") || die("Can't open: $!");

$/ = '>';

while ( <FD> ) {

    chomp;

    if($_=~ /(\S+)/xmsg){
    

    my $name = $1;

    my @numbers = split /\D+/;
    my $values = @numbers;



        print "$name\tlength=$values\n";
        print "@numbers\n";

 }

}
close FD;