Select Code to Download

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

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

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

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

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