>JAVA3_70_303NM:2:1:184:1240
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 34 40 40 40 40 40 40 40 37 40 40
 40 40 40 40 24 30 40 40 17
>PERL3_70_303NM:2:1:234:1166
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40
 40 40 40 40 17 40 40 40 40
>PYTHON3_70_303NM:2:1:202:1171
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 14 40 40 13 18 40 35 38 34 40 40
 40 4 37 28 40 40 40 40 2

##</code><code>##

JAVA3_70_303NM:2:1:184:1240	length=44
 3 70 303 2 1 184 1240 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 34 40 40 40 40 40 40 40 37 40 40 40 40 40 40 24 30 40 40 17
PERL3_70_303NM:2:1:234:1166	length=44
 3 70 303 2 1 234 1166 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 17 40 40 40 40
PYTHON3_70_303NM:2:1:202:1171	length=44
 3 70 303 2 1 202 1171 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 14 40 40 13 18 40 35 38 34 40 40 40 4 37 28 40 40 40 40 21 


##</code><code>##

#!/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;