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

die 'Usage: ctpA [DIR]' if @ARGV > 1;
my $dir = shift || '.';
##</code><code>##

use File::Basename;
open local(*OUT), "> $dir/pA.cat" or die $!;
##</code><code>##

for (glob "${dir}/*.seq" ) { 

##</code><code>##

    local $/;
    open local(*IN), "< $_" or die $!;
    my $seq = <IN>;
    close IN or die $!;
##</code><code>##

    $seq =~ s/\s//g;

##</code><code>##

    $seq =~ /([AN]*)$/;
    printf OUT "%d %s.seq\n", length $1, basename $_;
}

##</code><code>##

close OUT or die $!;